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I. THE PROBLEM 


With the number of new systems that are introduced 
to replace outdated or worn-out equipment and with 
increasing monetary constraints, it is of paramount 
interest to know the logistics requirements of the new 
systems well in advance of actual deployment. Of 
specific interest are manpower requirements on the 
different maintenance levels and the stock requirements 
for spare parts at the different supply levels. 

This study attempts to provide the decision maker 
with an array of options from which he can pick the one 
that looks favorable both as a reasonable compromise 
between combat readiness and budget constraints and as 
an ee eatile choice for the units in the field. 

Obviously, it would be beyond such a ee to 
guarantee optimal solutions for all kinds of different 
Situations. This thesis will not consider initial 
introduction of weapon systems or surge conditions 
brought about Dy increased usage of the equipment. 
Thus, the problem we consider involves- the Weezer of 
the logistics network for routine operations. 

For. this "steady state" case the output will 


Suggest necessary, required, or otherwise pertinent 


data to plan the successful) bUINd—-Up Set “anvert teteus 
logistics network. | 
The output of CAESAR yields the following 
information: 
(1) the number of hours spent on all the jobs, 


(2) the manpower required to accomplish these jobs on 
the different levels, 


(3) the numbers of repair parts for all the jobs, 
(4) recommended supply stocks to cover the demand. 
racine the consumption behavior with suggested 
stock levels will be analyzed. 


Failing systems are modelled as customers of a 


queuing network. This network extends through several 
maintenance levels. Sensitivity analysis is done in 
terms of manpower requirements. The sensitivity 


analysis considers, if possible, at least a 10 per cent 
bandwidth on both sides of an initial computed value. 
All possible combinations of strengths on all repair 
levels within these bands are computed. This gives the 
decision maker the opportunity to compare different 
scenarios and to consider different trade-offs. 

aeure 1.1 demonstrates the simplified structure 
within the supporting organizations and tite 
interactions among the user in the field and the 
“supporting organizations. Assume the user, depicted by 


the tank, faces a failure of one of his weapon systems. 
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He will notify his organizational maintenance unit and 
after a delay, due to administrative and transpor- 
tational times, the system will undergo repair by 
either changing the component that failed or by 
repairing this component. After another delay the 
system will be returned to the user and will be 
operational again. If the component was replaced, it 
will enter the next level repair cycle at the direct / 
general support unit, where the subcomponent will be 
replaced or repaired. The operational component is 
returned to the organizational maintenance unit. If 
further repair is necessary, the subcomponent is 
shipped to the depot / industry level where it is 
Poolive repaired. It will thén be shipped back to the 
direct / general maintenance unit to wait for the next 
exchange cycle. 

Usually, the components and subcomponents can be 
used again after repair. Only parts have to be provided 
through the supply chain. The model will not simulate 
total loss of components or subcomponents but it will 
provide a number of available components) and sub- 
components on the respective maintenance levels for 


direct exchange. 
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Fieure 1.1 


SUPPOrt Structvume 


eZ 


Il. THE THEORY 


A. DEFINITIONS 
The following definitions are provided to make 

clear the terminology used in this thesis. Refer to 
Figure 2.1 for a graphical depiction of a weapon 
system.[Ref. 1] 

system is the entity of all replaceable or repairable 

components, subcomponents and parts that make up the 

working piece of equipment. 

Component is the first split-up level of Raataceeple 

or repairable items within a system. 

Subcomponent is any item below the component level 

which is still repairable. 

Parts are non-repairable items within a system, 

component or subcomponent. 

Refer to Figure 2.3 for a graphical depiction of 

the underlying maintenance organization. 

Organizational Maintenance (Org Mn) is the first 

repair level. It is usually performed at the 

battalion level. 

Direct Support/General Support (DS/GS) is the next 

level above Org Mn. This is performed at the brigade, 

division or corps level for the respective supported 


units. 
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Depot Maintenance is the highest) fe vem co: fa 
tenance. It is usually performed by the military 


depot organization or a Civilian conmracter= 





Figure 2.1 Tree ~ Structure of a Weapon System 


Assignments of repair jobs’ to one of the repair 
levels is done on the basis of their necdamet or 
expertise, special tools, amount of hours necessary for 
repair or severity of damage. 

It may be possible that one level will be skipped 
or that work at .a lower level is pergoermed «adm 
connection with work on .a higher level. This aspect 


Will be disregarded in this study. 
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Refer to Figure 2.4 =for a graphical depiction of 

me Structure of the underlying supply organization. 

Direct Supply Organization (DSO) is the supply unit 

which is responsible for the support of specific 

customers within the major unit. 

Back-up Supply Organization (BSO) is a supply unit 

Which can support another supply unit on its supply 

bemel . 

Initial Demand Generator (IDG) is the customer of a 

DSO who demands service from the DSO. 

Intermediate Supply Organization (ISO) is any supply 

unit in the supply channel that both accepts inputs 

of spares and passes on output of spares to other 

ISOs or [DGs. | 

End Supply Organization (ESO) is the facility where 

ees that wantot immediately be filled or 

orders of restocks for ISO are centralized. It does 

not move physical items; it coordinates and routes 

thesornders. 

Mean Time Between Failures (MTBF) is the expected 

value of the interarrival time of failures for a 

working system. In this thesis equipment lifetimes 

are assumed to be exponentially distributed. 

Mean time To Repair (MTTR) is the expected value of 


the time required to repair a failed equipment. 
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B. ASSUMPTIONS 
We Independence of Systems 
Systems in any specific major unit are assumed 
to be independent of each other. 
2. No Non-lethal Failures 
Each item is assumed equally vital for the 
operation of the system. A failure in any part will 
lead to a failure for the complete systen. 
3. Unlimited Storage.Capabilities 
It is assumed that supply units can store any 
suggested number of spare parts. For the first 
simulation, unlimited supplies are assumed. 
Later, limited numbers of spares are 


considered. 


4. Hierarchical Logistical serucuure 


~ 


The underlying logistical system is assumed to 
be “Strictly hierarchical. There is’ no horizontal 
substitution for maintenance nor vertical substitution 


for supplies between different major units in the 


model. 


C. THE LOGISTICS STRUCTURE 


1. System Lay-out Dependencies 
The physical configuration of any new system 


depends on many different parameters. Cornerstones for 
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the design are the tradeoffs due to budget and the 
operability and system availability in the field. 

These connections between the various aspects 
ares Gisphayed in Figure 2.2. If enough resources 
(budget) are available, then the quantity of components 
for a new system can be optimized, and where possible, 
the idea of modular system layout can be realized. The 
number of servers can be tailored to satisfy maximum 
demand. All these means lead to a reduction in system 
repairtime. This and the ability to subsidize higher 
quality material, which increases ‘the time-until a 
failure occurs, yields less stress upon the logistics 
organization. The resulting increase in system 
en vata Pty is clearly in favor of the user in the 
Pela. Bie reality, Mowever, different users formulate 
priorities for acquisitions which demand resources. 
These demands have to be met as well as possible. Thus 
tradeoffs between optimality and feasibility have to be 


made. 
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oe Underlying Maintenance Organization 


momreeeca car@icr, the maintenance structure sig 
assumed strictly hierarchical. Each level serves 
specified jobs for specific customers. An exchange of 
Gapability cannot regularly be performed between 
an wcemb ee mMewiacenance units. Figure 2.3 shows this 


assumed structure. 





tere 215 sochematic Maintenance Structure 


ED 


In the example depicted in Figure 2.3 it is 
assumed that units (customers) Cy, to Cg aon Hey kel lle 
own organizational maintenance. In case of a failure 
that meus direct support, the destination of the 
item depends on the type of customer and his supporting 
Lites. 

C,; is supported directly (direct support, DS) 
by the corps unit. Co9,C3,Cq4 and C,g,C7 are units which 
are supported by their respective brigades. Cs and Cg 
are supported by their divisional units. 

In case of an overload of work at the DS level, 
the divisional units can back up the brigade units, and 
the corps can back up the divisions (general support, 
GS). However, this is only possible within certain 
limitations. The model does not allow general support. 

3. Underlying Supply System | 

The structure assumed for the supply system is 
similar to the maintenance system. In this structure it 
will be distinguished between Direct Supply 
Organization (DSO), which is directly responsible for 
its customers and back-up Supply Organization (BSO), 
Which is, within limits, capable of supplying customers |. 
of BSO units, if they are not immediately able to serve 
their customers. The initial demand generator (IDG) is 


the customer for the supply system, which is usually 


the maintenance unit. 


20 


Poctm@mew 2.4 shows a2 typical structure for a 


supplyenetwork. 


cael ay BY Brigade 


Supply rt] [Ea Supply ee Sa ae 





Peete we.4 Schematic Structure of the Supply System 


Ze 


The Supply Command supports all supply units on 
corps, division and brigade levels in a parallel 
structure. Since the customers on these levels are all 
similarly structured, i.e. have the same equipment, 
type and density, a horizontal back-up (BSO) on the 
same level is possible. 

Vertical substitution would be ineffective 
because customers at different levels have dissimilar 
equipment. 

The Supply Command works as an end supply 
organization (ESO) since its job is it to provide the 
intermediate supply organizations (ISO) with the needed 
items. The customers, the IDGs, are not’ shown lara 
Figure 2.4. 

4. Cooperation within the Logistics Network 
A user reports a failure of a system to his own 


Org Mn activity. At the same time, the user becomes an 


IDG for the supply network since a replacement 
component or part must be provided. If there is stock 
available at the Org Mn level, and if maintenance 


capability is also available, the customer is notified 
that the equipment will be worked on. If there are no 
Spares on hand, the ISO will get spares for the IDG 
either from the ESO or the BSO. | 

After successful repair and delivery the system 


will be operational and functional and the first repair 


ae, 


cycle (see Figure 1.1 ) is complete. The Org Mn unit 
becomes the customer for the DS unit with the broken 
component. This DS unit as the IDG will approach its 
supply unit to obtain the necessary items until the 
second repair cycle is completed. From here the same 
procedure continues at the depot level with its supply 
channel where the final broken item will be exchanged 
or repaired, if required. On either level the repair 
has been finished when the level 9 (non- repairable) 
item has been reached. 

Should Org Mn not have enough manpower 
available then repairs might be passed on to the GS 
levet. GS bevel is the division for brigade units or 
the corps for the divisional units. 

Although the time for immediate repair and 
return of the system to its normal duty is of 
particular interest, it is further important’ to 
cougider the whole chain of repairs. These repairs have 
an impact on the availability of spares under the 
assumption of limited supplies in the evaluation later 
in the program package. 

Replacements have to be ordered for the parts, 
since these do not get back into circulation like 
components or subcomponents, which after repair regain 
their place on the shelves of the maintenance units. 


This inventory policy can be on a one-by-one basis, 
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regularly according to fixed time int@ervals "GF upe 
reaching a minimum number of stocked items. 

In this study, the restocking policy will be 
the (s,S) method. It will be explained in detail later. 
The number of restocked spare parts depends on the 
length of the chosen time interval and the demand 


within this interval. 


D. THE COMPUTATIONAL FORMULAE 
The simulation consists of two parts. First, in an 
idealized run, planning figures will be computed 
assuming unlimited resources of both manpower and spare 
parts. Thus waiting times in the system are considered 
to be zero. In the second run the planning figures of 
the idealized run are used and the actual queuing 
behavior with limited servers and spare parts is 
analyzed. In this run the waiting times. are greater 
than zero. The major computational formulas used in the 
Simulation are presented in the following paragraphs. 
1. Random Number Generation 
The basis for all the random numbers used in 
CAESAR are the uniform(0,1) random numbers (Ref. Cul 
a. Uniform Random Number 
To transform the uniform(0,1) random number 


to a uniform(LL,UL) number’ the following algorithm is 


used: 
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Cie UL) see LL + (UL-LL) * U(0,1). 
where 
LL = mean - SQRT[ 3 * (std.dev. )?] 
UL = mean + SQRT[ 3 * (std.dev. )@] 
b. Exponential Random Number 
To transform the uniform(0,1) random number 
to an exponential random number the following algorithm 


is used [Ref. 3] 


EXP = - ( 1/lambda ) * In [ U(0,1) ] 


with ? 
eee oe. exp. distributed random variable 
lambda .. parameter for exp. distr. variable 
ENA ss fehs ps natural lgarithm 
U(0,1) .. uniform(0,1) random number. 

where 


Lambda = 1/mean 
c. Gamma Random Number 
A gamma (Erlang) random number with n 
degrees of freedom is generated from the following 


algorithm [Ref. 3] 
GAMMA = - ( 1/lambda ) * In [ prod[{ U(0,1) ] 


n 
with 
GAMMA ... Gamma distributed random variable 
lambda .. parameter for Gamma distr. variable 
i) ee degrees of freedom 
isonet. « natural logarithm 
U(0,1) .. uniform(0,1) random number 
prea il 22s product @irom 1 to n of U(0,1). 
n 
where 
lambda = mean / ( std.dev.)2 
n = ( mean / std.dev. )@ 
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d. Normal Random Number 
To obtain a normally distributed random 
number a Box - Mueller algorithm is used [Ref. 3] 
N, = {SQRT(-2 * 1n{U,(0,1)])} * cos[2*pi*Uo(0,1)] 
No«= (SORT(-2 * 1 n[U,(0,2) 0 sini 2p Ope ae 


with 
she -- the normally distributed r.n. 
) 


SQRT Square root of the argument () 
Merle eames natural logarithm 

ily scameeies 3.141592654 

cos() .. trigonometric cosine function 
sin() .. trigonometric sine function. 


This algorithm produces two independent 
normally(0,1) distributed random numbers. To use one of 
them randomly, another Monte Carlo trial is performed. 
A U(0,1) random number is drawn, and depending on that 
outcome either N, or No is chosen. 

The norm(0,1) random numbers are converted 
to norm(mu,sigma) numbers as follows: 


N(mu,sigma) = mu + N(0,1) * sigma 


with 
mu .... desired mean of the norm. distr. r.n. 
Sigma . standard deviation of the r.n. 
e. Lognormal Random Number 
For the lognormal distribution the 


following computation is made [Ref. 4] 
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L(mu,sigma) = exp[N(mu,,sigma, )] 


with 
LL] .... desired lognormal random number 
NE] .... a normally distributed random number 
mu ..... desired mean of the lognormal r.n. 
mu, -.--- mean of the normal random number 
Slgma .. std.dev. of the lognormal r.n. 
Sigma, . the std.dev. of the normal r.n. 
where 
mu = exp(mu, + 1/2 sigma, @) 


sigma = SQRTLexp(2 mu+2 sigma, )- 
-exp(2*mu+sigma,?)] 


muy, = 2 log(mu) - 1/2 log(mu?+sigma? ) 
sigma, = SQRT[1log(sigma? + mu“) - 2 log(mu) 
2. System Mean Time Between Failure (MTBF system. 
Suppose a system is made up of n components. 
Let Lambda; be the failure rate for component 1. Let T 
be the time to failure for the system. Let T; be the 
time to failure of component;. 
Maen, sthe Seer ieie lee Or waithe, lifetime of 
component; being greater than t is 


- Lambda; * t 
Bayt} =<e | For valley 1, 


For the system lifetime T the following holds: 


Beet = Pin (T;,To,..-..Ty)>t} 
ee > tei. , iets) 
-Lambda, *t -Lambdao*t -Lambda,*t 
= e ee 


~(Lambda,+Lambdao+...+Lambday )*t 
=e 


ad 


Thus the system time to failure is exponential 
with parameter Lambda,+Lambdao+ ... +Lambda,. The mean 
time to failure for the system is 

1 = 1 
Lambda,+...+Lambday, es somal 1 
MTBF, MTBF, 

Let us now determine the probability, that a 
system failure is due to component i. Let us consider 
the case in which the system has only two components. 
The probability, that the first system failure is due 
to component 1 is given by P{T,<To}. 

Conditioning we get [Ref. 5] 
oO 


f -Lambday * t 
P{T,<To} = P{T1<To| To=t} * Lambdao * e dt 
0 


co 
a -Lambday * t 
= J) P{T,<t} * Lambdayp * e dt 


Seo 


. -Lambda, *t -Lambday*t 
ti-< )*Lambdag * e dt 
0 
oO 
J | -Lambdap * t 
= JLambdao * e dt - 
0 Do 
f -(Lambda,;+Lambdag )t 
- Lambday * Je dt 
0 


~g Lambdao 
Lambda,+Lambdao 


= Lambda, 
Lambda,+Lambdao 
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Because of the loss of memory property of the 
exponential the probability of any system failure being 
due to component 1 is the same, 


= Lambda, 
Lambda;,+Lambdao 


This can be extended to the general case ofn 
components in a straight forward manner. The 


probability that the failure is due to component i is 


eee —agecrestas,y 
= 1/MTBFy; 
Sum(1/MTBF, ) 
wom 1 = 1,2,...,n 
Mesweee, «ss, 1-lGitl.,...n, 
Example: 


Suppose, a system consists of three parts X;,Xo and Xg. 
The respective mean times to failure (MTTF) are: 

MTTF, = 1000 hrs 

MTTFo = 500 hrs 

MTTF3 = 500 hrs. 
Then the expected MTTF for the system is 

Pe eeatem es. 

= 1/1000 + 1/500 + 1/500 


Pe 
5/1000 


200 hrs. 
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The probability the failure is caused by Wiecngeei: 


P{X9<X4,X9} = Lambdao 
Lambda,+Lambda9+Lambdag 
ee 
5/1000 
= 0.40 


If a component 7} faitfs "it isVdue to fallure von 
one of its subcomponents. In the same way computed as 
above, the MTBF for the component depends on the MTBFs 
of its subcomponents. 

MTBF comp. = 1 
and the conditional probability of a component failure 


being the result of subcomponent j is 


P(comp.; fails| subcomp., fails) = pM 
J sum i/MTBF, ) 


This continues until the part level has been 


reached. 


oe Total System Downtime 


The time it takes to repair the system and get 
it back into service consists of seéveraQy individua 
steps. First, the failure has to be reported to the 
next level maintenance facility. This facility will 
fill out a vem order and inspect the system for 
damage. This time period will be called "administrative 


time delay" (TA). 
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Purthermore the system has to»be shipped to the 
facility and back. The time for one-way transportation 
will be called "“transportational time delay" (TT). Both 
delays are regarded as random variables. Then the 
system enters the repair queue and waits for an 
available server. This time will be called waiting time 
(WT). When a server is available the system enters 
repair. The repair time is RT. 

The total system downtime will be: 

DOWNTIMESy stem = TAorg mnt(2*TTorg mn)+RTcomp:+WT 

Similarly, the downtime for a component will 
De: | 

DOWNTIMEComp. = TAps/est(2*TTps/es)t+RTsupcomp. +¥T 
and the downtime for a subcomponent: 

DOWNTIMESy pc, = TAt2*TT+RT+WT 
(indices depend on the next level maintenance 
facility). 


The following variables have to be known: 


fer eaehn maintenance level. 
Pomme tae idealized -run, the WT’s are assumed to be Zero. 
4. The Queuing System | 
In reality a system cannot expect to be served 
as soon as it fails and is mS Deetedk A server at the 


maintenance facility has to be available and all needed 
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spare parts must be available. Otherwise, the customer 
has to wait for the next available server or for the 
arrival of the necessary parts. 

service times are assumed to be independent of 
each other, and are distributed according to a user 
specified distribution. The service policy is FCFS!. 
The number of servers ata repair facility is k. The 
customer will always be served by the next available 
server. 

If a spare part is not immediately available, 
the customer has to wait even to get into the server 
queue. These waiting times have to be accounted for. 


Therefore the total downtime of the system is: 


DOWNTIMEsys=WTpartst¥Tlaport+TAorgmnt(2*TTorgmn )+RTsys 


with 
WT parts -... waiting time for spare 
parts 
WTiabor --.. Waiting time for service. 
5. Failure Generation 


The system lifetime is computed from all the 
component lifetimes (MTBF). The lifetimes of the 
components are assumed to be exponentially distributed. 

For purposes of saving memory and to be able to 
capture the feature that other components of a failed 
system do not fail while the system is shutdown, we 


generate system failures in accordance with the system 


lfcrS = First Come First Served 
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tarrure Gistribution. Given the system failed, we then 
determine the component which failed by a uniform draw. 
rae the same way, subcomponent failures and part 
failures are determined by the Monte Carlo method of 
drawing uniformly distributed random numbers” and 
comparing these to a table of cumulative probabilities, 
which has previously been generated. 
Example: 
Let the system consist. of three items with failure 
rates 

Lambda, = 1/1000 hrs 

Lambda y = 1/500 hrs 

Lambdag = 1/500 hrs. 
Then the probability of a system failure due to item 1 
is 0.2, due to item 2 is 0.4 and due to item 3 is 0.4. 


The cumulative table would look like this 


0.00000 ... 0.20000 item 1 
0.20001 ... 0.60000 {Gem 2 
0.60001 a 1.00000 item 3: 


Now a uniform(0,1) random number is drawn. Suppose this 
number was 0.6775. Thus the failing item would be item 
3, because 0.6775 lies between 0.60001 and 4.0000, the 
range for item 3. 

Using the same procedure would lead from ee 
failing component to the failing subcomponent and 


fimaliy the part, that caused the system to fail. 
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6. Restockinee olmicy 
Since the program QBEHAVE analyses the behavior 
of the spare part stock levels,a restocking policy has 


to be defined. 


We considered three common restocking policies: 
~ Restock on a one-for-one basis. 


Whenever an item is consumed, a substitute is 
immediately ordered and after a processing and 
shipping delay it fills the empty spot in the 
warehouse. Problems may be caused by shortcomings 
due to limited stocks and delays in the shipment. 


~ Restock after fixed time periods. 


After given time intervals a fixed number of items 
is shipped to replace the consumed items. Surpluses 
are possible with this method. 


- Restock at the critical inventory level. 
This method is widely used. It combines the advan- 
tages of being able to satisfy most of the demand 
with the stock on hand with the smaller number of 
restocking transactions. Whenever the stock level 
reaches the refill level, the difference between 
this refill level and the stock maximum is ordered 
and shipped after delays. The problem is to keep 


the minimum level high enough to avoid stockout and 


low enough not to generate too large a holding 
cost. 


In this simulation the third method, restocking 
at the critical lower levels, is used. This method is 
also known as the (s,S) - mechoam Gene s denotes the 
lower and S the upper limit. 

S is taken to be the average demand during the 
four week planning period computed by program ESTIMATE. 
The value s is computed so as to satisfy a specified 


Stockout risk. 
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The stockout risk factor r is the probability 
of running out of stock while the replacement is 
ordered and shipped to the consuming facility. This 
delay for Pea tits the order and for receiving it is 
ealled leadtime. 

With exponential times to failure the 
distribution of the number of failures during a 
leadtime L is POISSON with parameter (Lambda * L). We 
therefore compute the stock level s by finding the 
' smallest s such that 

ime Ss) <= 3, 
where X; is POISSON(Lambda,*L). 
To find s from this, compute 
Paki? Ges] om 1 - r 


For s=0: probability p(0) = exp(-Lambda,; * L) 


s=1: p(1) = (Lambda,;*L) * p(0) 
1 

sS=2: bce ap, ebanbada,~L) = pri) etc. 
2 


Compute p(k) recursively until the sum of the 
cumulative probabilities 
p(0)+p(1)+p(2)+...+p(k) >= 1-r. 


The value for s is then kK. 
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E.g. Lambda; = 1/30, L = 5, r = 0.10 


x 
ll 


0: p(0) 


exp(-Lambda; * L) = exp(-5/30) = 0.8465 


a 
l 


i pia (Lambda;*L) * p(0) 
1 


= 0.1667 * 0.8465 = 0.1411 
1 


[p(0) + p(1) 0.9875] > [1 -r«<—=_1- 0.1 = 0.9] 


That implies s = 1. 
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Li. THE REALIZATION 


A. DETERMINATION OF THE OUTPUT DATA 

Before the Simulation could be realized, the 
decision variables for the desired output data had to 
be determined. It seemed to be reasonable that the 
needed data would consist at least of information 
about: 


- the number of maintenance personnel on each level 
of maintenance 


- the number of spare parts to be provided for each 
supply level 


- the use of the provided capabilities in terms of 
manpower and spare parts 


- the total expected cost for the system. 
These data should be based on a planning period. This 
period should not be too short, because that would 
unneccessarily extend the duration of program runs, and 
not too long, because the the resulting data would be 
unreal. A period of four weeks seemed to be adequate 


for planning purposes. 
B. STANDARDIZATION OF THE INPUT DATA 


Due to the large volume, the input data are stored 


in files. To improve access times, the data are written 
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into random access files with linked lists used to 
navigate through the files. 

This program is written for military use; knowledge 
about the military organization of major units is 
assumed. Appendix C displays all used tactical signs 
used in this thesis. 

1. Major Unit Structural Data 

To be able to extract the distribution of the 
system in question out of the desired major unit 
(brigade, division and/or corps), the structure of 
these major units has to be Known and atantiaea re cae The 
program TACMIX gives the user the interface to enter 
the required data. Once the program is loaded, the user 
is prompted to chose among four options?: 

Create New Organization 
View Existing Organization 


Modify Existing Organization 
Terminate Program 


NN ON 
OWNE 
ed 


If the user chooses option (1) he will see a 
screen with tactical signs of the following major unit 
types: 


Corps 

Armored Division 

Mechanized Infantry Division 
Infantry Division 

Airborne Division 

Air Assault Division 
Mountaineer Division 

Armored Brigade 

Mechanized Infantry Brigade 


2see Appendix A.1. 
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Infantry Brigade 

Airborne Brigade 
Mountaineer Brigade 

Combat Aviation Brigade 
Signal Brigade 

Air Cavalry Combat Brigade. 

Peer tmewrdecision for one major unit type, all 
unit types, regiments,battalions,companies, which may 
be possible under this major unit will be displayed. 
The user chooses the units, their number and creates 
the structure of the major unit. The newly created file 
will overwrite any existing fim eCeor 2 eiLowma |] OPeinit. 

Selection of option (2) will display the 
contents of the chosen unit type file in graphical 
form: the tactical signs for the units in the major 
unit and the number of each of these units. 

Selection of option (3) will also display the 
contents of the major unit file. In addition, it allows 
the user to implement modifications into the file. The 
new file overwrites the previous one. 

For each of the above major units there exists 
a file in the program package in accordance with 
omen eciinee 1 . 

Se BUistribu@tion of Systems 

Next, the user calls the program INMILDAT er 

entry of the number of the systems into the military 


structure. The program displays all types of units from 


regiment to company and prompts for’ the number of 
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systems in the respective unit. Another prompt will 
have the user check the correctness of the entry. After 
all units have been displayed the program will ask for 
reserve in either percentage or absolute numbers. 
Program ESTIMATE will use this number to find the total 
number of systems within a corps. ESTIMAT will give the 
amount of systems in the major units below the corps 
level and also the reserve if one exists. 

At the end of the program INMILDAT it will 
prompt the user to enter a data file name for the data 
just created and write the data sequentially into this 
file. If no name is entered the default file name 
"DISTRIBN" will be used. 

3. System Structural Data 

Before the user can enter the system data, they 
have to be available in the format necessary for these 
impucks: 

The following information will be entered?: 

Item Type - to be able to answer this prompt, the 
system must be broken down such that the structure is 
similar to the one shown in Figure 1. A part, a non 
repairable item, will always require a 9, even if it 
is directly under the system level 1,a component will 
always be a 2, and the subcomponents have to be clas- 
sified from 3 to 8 depending on their level within 
the system. 


National Stock Number —- this is the NATO standardized 
stock number in the format: 


AAAA-BB-CCC-—DDDD. 


3see Appendix A.3. 
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All the groups of letters stand for numbers. In this 

program it will be assumed that the country code (BB) 

is the same throughout the system. If the country 

code is omitted, the stock number can be written as: 
AAAADDDD.CCC 

and can be used as a unique item file name. 

Item Description - this is the name of the item 

How many of these Items - this is not the overall 

total but rather the number within the next level 

item. If subcomponent A appears x times in the system 

but y times in component B, then enter jy here. 

Unit Price in US Dollars - self-explanatory 

MTBF4 (assumed) in Days - this information should be 

provided by the manufacturer of the item. If there 

are no data available, an estimate of this number is 

necessary. Fractions of hours can be entered. 


Replacement Level - this is the maintenance level 
where the failed item is replaced. 


Repair Level - this is the maintenance level where 
the replaced item will be repaired. 


MTTR® in hours - enter here the repair time provided 
by the manufacturer. If no data are available, enter 
an estimate based on similar items. 

After entering all data, a summary of these 
data will be displayed. The user has to acknowledge the 
correctness of the input. If they are correct the user 
will be asked if there are more items to be entered. 

When the last item has been entered, they will be 


Written omto the disk into a random access file with 


its-transformed stock number name in the case of the 


4MTBF = Mean Time Between Failures 
SOMTTR = Mean Time To Repair 
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system. In all other cases the name will be the 


transformed stock number of the next higher level item. 


C. PERFORM IDEALIZED EVALUATION RUN 
1. Macro - Flowchart Program ESTIMATE 

The basic structure and sequence of 
computations of the program ESTIMATE starts with an 
initialization part including reading default data and 
string variables from the.memory and prompting the user 
for additional information necessary for the simulation 
(see Figure 2.5). It computes the system lifetime from 
the component data and requires the choice of major 
unit, for which the simulation will be run. Finally, a 
failure time is drawn for each of the systems in the 
major unit using the system lifetime. These failure 
times are sorted. 

The sequence of steps depicted in Figure 2.6 is 
repeated for as many times as failures have’ to be 
generated. For the next failing system the failing 
component, subcomponent(s) and part are determined by 
the randomization procedure described in Chapter II. A 
repair time is drawn from the selected distribution and 
the total downtime for the system (ignoring any queuing 
waiting times) is computed. For this system the time to 
the next failure T is then determined and merged with 


the failure times of the other systems. 
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Once all the failures have been simulated and 
Perea wm the data files, the output is generated for 
Se) Manmibemance level. Some additional statistical 
GS@k&asabeut the simulation are provided on the last 


output page (see Figure 2.7). 


Read Default Data 


Enter Parameters 
Compute 
System Lifetime 


Choose — 
Hayvor Unit 


Compute Failure 
Time for each 
System 


Sort 


Failure Times 





Figure 2.5 Initialization Phase of Program ESTIMATE 
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Generate 
Failure Part 


Generate 


Conpute total 
Down tine 


Draw new T 
and sort — 


Update 
Data Files 


@) 





Figure 2.6. SimulabtionmeGore sone torr anes nia 
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Output 
Level OngMn 


Output 
Level D&/Gcs 


Output 
Level Depot 


Output 
Part Consumption 


Output 
Add. Statistics 


| Progam End 





Figure 2.7 Output of Program ESTIMATE 
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Oe Detailed Look at Program ESTIMATE 
ESTIMATE takes the data in the item files and 


the military structure files and computes planning 
figures for the desired output information. Since the 
amount of data is so huge, the data are kept in 
auxiliary random access files during the program run. 
This allows rapid access to the data without cluttering 
the computer’s memory. 

In the introductory phase of the progran, 
default values and strings are read into variables. Old 
auxiliary files are deleted and the random number 
generator is seeded with the DOS day/time group to 
achieve real randomness. The user then enters the 
number of failures to be generated. 

The user also has to enter the distributions 
for administrative and transportation delay times. The 
first "Shape screen® requires the entry of the 
maintenance level after which the type of distribution 
and its parameters must be entered. 


Choices for the distributions and parameters are: 


Uniform Parameters: lower, upper limit 
Normal Parameters: mean, standard deviation 
Exponential Parameter : mean 

Gamma - Parameters: mean, degrees of freedom 
Lognormal Parameters: mean, standard deviation 
Fixed Parameter : mean. 


Oosee Appendix C.4. 
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If the user is uncertain about the parameter 
choice, default values are provided for each distri- 
bution. Both, the distributions and the parameters for 
each maintenance level are printed’. 

After input of the system stock number, the 
program computes . the overall system failure rate 
lambdasyvstem from all the individual failure rates of 
the components, subcomponents and parts. 

The next step is. to find the distribution of 
the systems in the corps. The program takes the entries 
in the system distribution file created with the 
program INMILDAT and compares them with the military 
structure data created by the program TACMIX. The 
output will be a list of the major units in the corps 
with the respective number of systems®. Tris list will 
be displayed on the screen and printed together with 
the user’s choice of major unit within the corps. 

The program will compute one individual failure 
time for each of the systems in the major unit. The 
program will generate an exponentially distributed 
random number with parameter lambdasyvstem PORwe ach 
system and then order these failure times. | 

After having obtained all failure times the 


program will determine which component caused each 


“see Appendix B.1l.a. 


Ssee mopemenx Bel.b. 
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failure. It does this as described in chapter II. The 
same procedure is used to determine the failed 
subcomponent and part. As soon as. the failed part is 
determined, all information (times, costs, etc.) about 
the chain of failed items within the system up to this 
part have been stored in auxiliary files. 

Starting from the time of failure (FTIME), the 
program computes an idealized repair cycle for this 
system. It assumes that there are unlimited resources 
in spare parts and manpower available.. 

The time at which the system is operational 


again and back at its location, is computed as follows: 


UPTIME = FTIME+2*TT+TA+MTTR 


with FTIME ... time system fails 
TT ...-.- transportation delay time 
TA ...... administrative delay time 
MTTR ...-. mean time to repair. 


The program will always serve the next failing 
system until the desired number of exrates have 
ocecunredse 

3. Output Program ESTIMATE 
The output of the idealized run performed in 


the program ESTIMATE consists of information about the 
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Manpower requirements for each maintenance level and 
the spare part stocking levels?. 

The output consists of at least six pages. The 
first two pages provide data about manpower require- 
ments and the consumed spare parts. The last page gives 
additional information about the simulation itself and 
the costs involved for the systems. 

Page 1 of the output gives the number of 
failures, a listing of the distributions and parameters 
for the transportation and administrative delay times 
and the repair time distribution. These data were 
entered by the user in the initialization phase of 
ESTIMATE. 

Page 2 of the output gives the distribution of 
the systems within the major units of the corps. It 
also provides information about the number of systems 
On reserve and the total number of systems in the 
corps. 

Pages 3 to 5 give the summaries for manpower 
and spare part consumption for the three maintenance 
levels. The header shows the number of simulation 
replications. Next is a list of consumed items on each 
respective level. Provided are the national stock 
numbers, the item descriptions and the total number of 


units consumed. 


9 see Appendix A.4 
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The manpower data show the total number of 
manhours spent on the given number of simulations. This 
total time is converted to an average time within a 
four week planning period. Based on this number the 
average number of repairmen for this level is shown. 

Page 6 gives additional information about the 
simulation. It lists the total time for the simulation 
in weeks and the number of four week periods. 

It also provides system data. The average 
system downtime and the average system availability 
during the simulation are provided. 

For the costs of the new systems the output 
shows the average maintenance cost per system (only 
parts are consumed), the initial acquisition ee for 
introducing the new system plus one four week spare 
part package into the given major unit and finally the 
cost for an additional average four week supply of 


Spare parts. 


D. RERUN THE SIMULATION WITH QUEUING 
1. Macro - Flowchart Program QBEHAVE 
The data processing in the program QBEHAVE 
starts with a reading of parameters generated in 
program ESTIMATE. Then, for each system, the first 
failure time is read. Taking transportation and 


administrative delays into account, the times of the 
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actual arrival at the maintenance facility are computed 
and sorted. Then the program simulates the repair at 
tie Ore Mm level by checking the availability of 
servers. 

To keep track of the times the servers are 
busy, the program uses two pointers for each server. 
One for the earliest time the server’ starts service 
(intime) and the second for the earliest time at which 
the server will be available (outtime). As soon asa 
customer (weapon system) enters the queuing system 
(entertime), the next available outtime is found. If 
the outtime is less or ae acu tie  entertime, the 
customer is immediately served. Otherwise the diffe- 
remece between the minimum of the outtimes and the 
entertime is the waiting time for this customer... The 
outtime pointer for the selected server is set to the 
value {intime + repair time}. Thus an entering customer 
always gets to see the first available server and the 
time at which service will be complete is determined 
when each customer arrives. Levels DS/GS and Depot are 
handled in the same way. The stock levels for each 
spare part at all levels are computed and printed. 

This simulation is- run with the numbers of 
servers equal to the numbers suggested by the program 


ESTIMATE or for each of these numbers within +/- 10 % 
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of that figure (unless not feasible, a3e same 
or percentage busy < 10 @). 

Figure 2.8 shows the initialization Sader 
first repair level (Org Mn) within the sensitivity 


analysis loop. 


Read Parameter from 
Dats File 


Enter Parameters for 
Stockout Factor & Shirpring 


Loops for Sensitivity Analysis 


Read Failure Data 
Compute Intime for Q 


Check for Sernven 
Repair on OrgMn Level 





Figure 2.8 Repair Level OrgMn in Program QBEHAVE 
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meee “259 shows the other two repair levels 


(DS/GS and Depot) within the sensitivity analysis loop. 


Read Failure Bata 
Compute Intime for @ 


Check for Server 
Repair on DS/GS Level 


Read Failure Data 
Compute Intime for @ 


Check for Server 
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Figure 2.9 Repair Levels DS/GS and Depot in QBEHAVE 


ae 


Figure 2.10 shows the computation of spare part 


consumption within the sencieivi ty eana ] foe 


Compute Part 
Consumption 


Reset Varmriahles anda Arrays 


End Sensitivity Lovp 


Program End 





Figure 2.10 Spare Part Consumption in QBEHAVE 
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2. Detailed Look at Program QBEHAVE 

QBEHAVE gives a more realistic view of the 
behavior of the systems in terms of downtimes than does 
the program ESTIMATE, which provides the data for 
QBEHAVE. QBEHAVE takes the ordered failure times of the 
systems and adds to these numbers’ one half of the 
administrative delay time, assuming that this delay 
occurs equally at the beginning and at the end of 
processing a workorder. One transportational delay time 
is also added. The ordered numbers are used _ to 
@etermine the entry time for the system into service. 
The customer With the earliest failure dees not 
necessarily have to be the first one to be served. It 
might take him longer to get to the server or the 
administrative delay might be longer. 

The service policy is FCFS. The algorithm 
checks for the next available server and if a server is 
free, the customer entry time plus the MTTR result in 
the customer departure time. To this time the remaining 
half of the administrative delay and another transpor- 
tational delay time is added to obtain the time the 
customer is operational again. The time the customer 
leaves the server is also used as the failure time of 
the customer for the next level of maintenance, where 


the replaced item itself will now be repaired. 
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These computations continue® untit “the part 
level is reached and no further repairs will be 
performed. 

The calculations on the next level can only be 
performed after the previous level is completely 
computed, since the times the customer leaves. the 
previous level have to be converted to arrival times at 
the next level. They then have to be sorted to obtain 
the proper sequence of service. 

3. Output Program QBEHAVE 

The output of QBEHAVE offers information about 
the manpower requirements for each of the maintenance 
levels and the spare part consumption!9, Because this 
phase of the simulation is not an idealized run such as 
was the case with the program ESTIMATE, queuing waiting 
time data are also available. 

The number of output pages is always a multiple 
of two. A set of output for each combination of servers 
consists of two consecutive pages - one for the 
manpower andthe ouner for the spare part data. The 
total number of output pages depends on the program 
mode. If the sensitivity analysis is to be performed, 
then the number of pages depends on the number of 
different cases considered in the sensitivity analysis. 


For this mode the first set shows the data for the 


10see Appendix A.5 
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combination of smallest server numbers on all repair 
Wevets. be next set usually sews the results for an 
increased number of servers on the Org Mn level unless 
the upper limit is reached or the percentage of time 
server 1 is busy is less than 10 per cent. 

When all possible numbers of servers on the Org 
Mn have been tried, the number of servers’ on the DS/GS 
level is increased, the number of servers on the Org Mn 
level is reset to its lowest value and the computations 
start over again. 

After all possible combinations of servers on 
Org Mn level and DS/GS level have been accounted for, 
then the number of servers on the Depot level is 
increased. The program terminates when all combinations 
Sieeer ver numbers on all three levels have been tried. 
For each combination the spare part consumption is 
collected through all three levels and printed. The 
results are shown on the second page of the output set. 
Each combination of server numbers produces one set of 
output. 

thes first page of each output set shows the 
statistics for the maintenance queues on the various 
levels. On the Org Mn level the number of customers 
(systems .in the major unit) and the number of 
simulations are provided. For the other levels these 


numbers do not change. 
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The output then shows’ the number of servers 
available for each maintenance level. The total number 
of delays, the total waiting time and the maximum 
number of customers waiting are provided. Also provided 
are the average waiting times per customer, (given the 
customer waited), and the expected average waiting for 
any customer entering the queuing system. Also shown is 
the percentage of time each server was busy. Finally, 
statistics about the simulation, like total elapsed 
time and the number of four week periods are given. 

The second page offers a summary of stock 
behavior for all consumed items, repairable or not. 


Initial and final stock levels within the simulation 


period are shown. The last column shows the minimum 
stock number, where negative values . represent 
stockouts. 
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IV. LIMITATIONS 


To Keep the size of the different programs and the 
amount of generated and accessed data manageable, a few 
limitations were built into the programs. 

The number of iterations (trials) is restricted to 
1000. Numbers close to 1000 cause excessive execution 
time for the program. The number of systems handled is 
resticted to 500. The total number of different compo- 
nents, subcomponents and parts is limited to 1000. The 
number of each individual part is not restricted. Ifa 
larger number of items is required, then the system has 
to be divided, and the simulation has to be run for for 
the different parts of the system. These partial 
rests Can then be added together to obtain the 
numbers for the system as a whole. The number of items 
under any other higher level item is limited to 99. The 
item price must not be greater than $ 99999.99 (of 
course, one can express costs in tens, hundreds and 
thousands of dollars to avoid this problem. 

The maximum number of repairmen on each of the 
three maintenance levels is restricted to 50. [t would 
be unreasonable to assign more people to one systen. 

The systems are strictly structured as_ serial 


systems. 
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Va SUMMARY AND CONCLUSIONS 


The output of the program ESTIMATE yields the 
average numbers of repairmen per maintenance level for 
a four week period and the total number of spare parts 
for the whole simulation. Although these numbers are 
computed assuming no queuing they are useful for 
planning figures. The values are input to QBEHAVE which 
simulates more realistic behavior. 

For a quick overview of the expected requirements 
and to obtain ballpark figures a run of ESTIMATE will 
likely yield reasonable numbers. For a more detailed 
view the user has to run QBEHAVE and select a suitable 
solution out of the array offered. When interpreting 
the output of QBEHAVE, the user should not only take 
the waiting times for the customers into consideration, 
but also observe the proportion of time the various 
servers are busy. Changes on a lower level directly 
influence the behavior on the higher levels. These must 
be taken into account when raising the number of 
repairmen. 

CAESAR is capable of generating valuable 
predictions for both the maintenance and the supply 
organization by bringing a multitude of aspects into 


the consideration of the responsible manager. 
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CAESAR presents a broad spectrum of options for the 
deployment of manpower and supplies within the 
hierarchical logistics _Structure. CAESAR will not make 
the decisions for the manager. But CAESAR will make the 


decision process easier and the alternatives more transparent. 
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APPENDIX A 
SAMPLE RUN 
neal tT sample runs of CAESAR’s programs’ the 
following conventions are used: 

- amessage from the computer will always be denoted 
in lower and upper case letters with an (M) at the 
beginning of the message, 

- an input for the computer will always be denoted 
in upper case letters with an (I) at the beginning 


of the input, 


- <enter> means to press the ENTER key after typing 
ely ce ed otros bale 


- any comments will be denoted (C). 


1. Program TACMIX 

TACMIX is the graphic interface for CAESAR to 
provide the input of major unit structures. The program 
will present all units and major units with their 
respective tactical signs. Ff the number of wnits von 
any type is greater than 1, then an index outside the 
lower right corner of “the symbol will indvcatre tite 
jgubliileieig* 

If you intend to create or modify a major unit, and 
you want to keep the old data, make a copy of the data 
fate tor Enlsemnalor ee To do this you enter from DOS 

C>COPY OLDNAME NEWNAME <enter> 
using the old and the new name for the data file. 
E.g. to copy BRIG16 into a back up file called BR16 


VOousecurver 
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C> COPY PrevalLowpkRto <Enter>. 

There will be a new file named BR16 containing the 
same data as BRIG16. Now you can modify BRIG16 in any 
way you like. 

To retrieve the data after you are done, simply 
ope Mee Contents of BRIG back into BRIGI6, typing 

C>COPY BR16 BRIG16 <enter>. 
To,start TACMIX, type at the DOS prompt: 
Bei AgwmexX <enter > 
(M) 


+t+ot Opt tons: 


—- Create Mew Organization 


—- View Existing Organization .... Ca) 


~- Modify Existing Organization .. 33 


Terminate Program 


Enter Number of Choice 





(C) Let us create a new organization for major unit ll. 


(I) 1 <enter> 
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(M) 
ISS es = 
es [Sl & Ex 


SG SS 


enter major unit cade number : 















(I) 11 <enter> 


(M) 


eS 
East 


25 


oir SIS 


enter unit code numher (ENTER for next frame) : 





(C) We will only browse through the tactical signs. 


(I) <enter> 
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(M) 


SEAS 


57 
lee’ aati’ e ode number (ENTER for KORE freebie: 





(I) <enter>d 


(M) 


SSR Se 
Sse einF 
el AIS 


77 
Shin aikiicn ode . CENTER for ext frame) : 





eleecenter > 
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(M) 





(I) <enter> 


(M ) 


: 128 121 122 123 124 6 
enter unit cade number (ENTER for next frame) ; zs 





(I) <enter> 
(C) Let us use option 2 (view existing organization) to 


take a close look at major unit 14. 
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mie 2 <enter> 


(M ) 


Ie Ses = 
+ Ss S&S] ex Ex 
SG SS 


nter mayor unit code number :! 






iol) mM <enter> 


(M ) 


—< 


14 
we 
Px). ES) 1 a 
49 i 131 isa 133 


| La 


134 
Press any Key 





(I) <enter>d 
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(C) This brings you back to the menu screen. 


(M ) 


SE PEPE HEE IEEE EI EEE IEE 
Pet Program TACM Ix 
Stet Opt tons: 


—- Create New Organization 


—- Yiewm Existing Organization 


— Modify Existing Organization ..(€33 


— Terminate Program ...-ceer creer ee DD 


Enter Number of Choice : 





(C) Let us use option 3 (modify existing organization) 
and MOG ify ola Orem lel eee 
(I) 3 <enter> 


(M) 
SS SS 
Cy] es SS Ex Ex 


6 


Si G2] S21 SS 


nter major unit code number : 
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(—T) 12 <enter> 
(M) 


149 
Any Modifications ? 





rey 

(C) change the number of units type 51 from 2 to 3 

(M) Which Modification ?(0=erase, 1=change number of 
units, 2=add a unit) 

CE 1 

yewaach Unit Wamber 7? 

(I) 51 <enter> 

(M) Enter new number of units 


(I) 3 <enter> 
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(M ) 


SI 


12 


= 
22 99 119 


a 
149 143 


Any Modifications ? 





OO ea 
(C) Now we are back in the main menu 
(C) Let us change the number back to 2 
(M ) 
wan Program TACMIN see 
Peto Opt toms: 
SN PEE SESE NE SESE IE MSE EEE TEE EE 


Create New Organization 


Yiew Existing Organization 


Modify Existing Organization 


Terminate Program 


Enter Number of Choice 





(I) 3 <enter> 
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(M ) 


0) 
es] [S| Sx Ex 


nter major unit code number : 


(ee 1i2 <enter> 


(M ) 


12 - 


SS] & 
38 09 115 


as 
148 141 


Any Modifications ? 





ey 


val 


(M) Which Modifica moms 
(I) 1 <enter> 

(M) Which Unit Number ? 

(I) 51 <enter>d 

(M) Enter new number of units 
(I) 2 <enter> 


(M) 


i ie 


a 


Any aetpies tions 





(I) n <enter> 

(C) We are now in the main menu. Let us abort the 
program. 

(I) 9 <enter> 


This input brings us back to DOS. 


We 


2. Program INMILDAT 
INMILDAT is the graphical interface for CAESAR to 


provide the input of the distribution of the new 
Systems within the corps. The program will represent 
all units and major units with their respective 
standardized tactical signs. Below each tactical sign 
is displayed the name of the unit. 

To start INMILDAT type from the DOS prompt: 
meee oLNMILDAT <emter> 


(M ) 


ANTI AIRCRAFT DEFENCE REGIMENT 


how many systems ? 





wee <enter> 
(C) The program will successively display all unit 
typessand ask for the number of systems in this 


i~Pteuntil it reaches the last storedwunit image: 


as 


(M) 


FIELD AIRPORT 


another entry ? § 





(C) no systems in this unit type 


(I) <enter> 


(M) 


To save Data, name File, 
Default File Name is DISTRIBN 


To accept Default press ENTER or enter File Nane 





(C) enter a name of your choice 
(I) TESTFILE <enter> 


(C) That is the end of INMILDAT 
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se rrogram INSYSDAT 
INSYSDAT is the interface for CAESAR to enter the 
relevant data about the new systems. 
To start the program type from the DOS prompt: 
(C) Let us enter a component called TEST ITEM for’ the 
system with the stock number 1234-12-999-0000. 
(I) C>oINSYSDAT <enter> 
(M) Item Type( 1=System, 2=Component, 
3..8=Subcomponent, 9=Part } 
(I) 2 <enter> | 
(M) National Stock Number: 
(I) 1234-12-140-0000 <enter> 
(M) Belongs to what item (next level stock number): 
(I) 1234-12-999-0000 <enter> 
(M) National Stock Number: 1234-12-140-0000 
Item Description : 
(I) Test Item <enter> 
(M) How many of these Items: 
(I) 5 <enter> 
(M) Unit Price in US Dollars :$ 
(I) 253.98 <enter> 
(M) MTBF ( assumed ) in Days: 
(I) 120 <enter> 
(M) Replacement Level (2=Org MN,3=DS/GS,4=Depot ): 
(C) assume replacement on ORG MN level 


(I) 2<enter> 
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(M) Repair Level (O=no,2=Org MN,3=DS/GS,4=Depot ): 

(C) assume repair on DS/GS level 

(I) 3 <enter> 

(M) MTTR (Repair/Replace) in Hours 

(C) fractions are possible; ( e.g. for 200 minutes 
enter 3.3) 


(I) 3.3 <enter> 


(M ) 


: Component 

> 1234-12-149-89824 
ies, Description : Test Iten 
Unit Price in US Dollars :$ 253.98 

LS 

126 days 

: Organ, Maintainance 
Repair Level : Direct 7 General Support 
MITR Creplace) a 3.3 hours 





Entries correct ? Cy/n) 


(I) y <enter> 
(M) another entry 2 
(C) For this sample run seas entry is not necessary. 
(IT) n <enter> 
This input brings us back to Gee 
4. Program ESTIMATE 
ESTIMATE is the first of two simulation programs in 


CAESAR to compute the requirements of the system’s 
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Mmemestics support organization. To start 
fom the DOS prompt: 

(I) C>oESTIMATE <enter>. 

(M) Enter total number of failures 
(<=1000): 

(C) let us chose 50 for this sample run 
(I) 50 <enter> 

(M) adjust paper in printer 


(M) press a key to continue 


ESTIMATE type 


to simulate 


(C) make sure you start with a new page on your printer 


(C) and the printer is switched on and online. 


(I) <enter> 


(M ) 


Enter desired value for the standard deviation of 


the delay distributions in per cent of the nean 


the default value is 18 per cent 


to accept press ENTER, eise type percentage 





(C) to use the default value of 10 % press ENTER key 


(I) <enter> 
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(M) 


Enter required inforsation about the transportation tines (one way): 


- on the user / org maint. level (1) 
on th BS / G8 Jeval (2) 
Ca) 


- on the Depot / Industry leval 


no wore entries (9) 





(C) enter for level Org Mn 
(I) 1 <enter> 


(M) 


transportation times Cone way) 
Enter desired distribution for the time delays: 


uniform 
rornma | 
exponential 
Gamma 
Iloygnorna |] 
fixed 


default distribution is NORMAL 
to accept default press ENTER else type number 





(C) accept normal distribution as default 


(I) <enter> 


78 


(M) 


transpertaticn times (one way) 


On the user / org maint. level, enter for the normal distribution 


the average (mean) value in hours 


the default value is: 3 


to accept default press ENTER else tupe value 





(C) accept default 
(I) <enter>d 


(C) back to the transportation delay level menu 


(M) 


Enter required information about the transportation tises (one way): 


- on the user / org maint. level (1) 
~ on the BB / $s level (2) 
- on the Depot / Industry level (3) 


no more entries (9) 





(C) for DS/GS level 


(it) 2 <BNTER> 


va 


(C) now the same prompts as for the Org Mn level 
(M) 93s. -“disctributien 

(I) <enter> 

(M) ... default value 

(I) <enter> 

(C) back to the transportationsdelay smenu 

(C) for Depot level enter 

(I) 3 <enter> 

(C) now the same prompts as for the Org Mn level 
(M ) -.. distribution 

(I) <enter> 

(M) ... default value 

(I) <enter> 

(C) back to the transportation delay menu 

(C) no more entries here 

(I) 9 <enter> : 


(M) 


Enter required information about the admin time delays: 


on the user / org maint. Jeve!l {13 
on the DS / GS level (2) 
(Je) 


on the Depot / Industry leave} 


no more entries (9) 
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me) tor the Org Mn level enter 
(I) 1 <enter> 
(M) 


admin time delays 


Enter desired distribution for the time delays: 


uniforn 
norna | 
exponent ial 
Gamna 
lognornal 
fixed 


default distribution is MORAAL 
to accept default press ENTER else type nunber 





(C) let us change this distribution to exponential 
(I) 3 <enter> 


(M) 


admin tine delays 
On the aser / arg maint, jevel; exter for the exponential distribution 


the average (mean) wlue in hours 
the default vaine is: 4 


to accept default press EATER else type value 
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(C) 
(I) 
(C) 
(M) 
(I) 
(M) 
eo 
(M) 
(I) 
(M ) 
eo 
(M) 
(ay) 
(M ) 
(I) 
(M) 
ace 
(I) 
(C ) 


accept default value and press 
<en Ger 
now do the same for the other two levels 
Enter required 
2 <envere, 
distribution a... 
3°<enter > 
default value 
<enver> 
Enter required 
once ve ie 
distribution 
3 <enter> 
default value 
<enter> 
Enter required 
you are finished with this part 
9 <enter> 


you now choose the repair time distribution 
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(M ) 


Enter desired distribution for the repair time: 


uniforn 
noma | 
exponent iai 
Canna 
lognorra | 
fixed 


the default distribution is LOGNORMAL 


to accept press ENTER, else type nunber 





(C) use default distribution lognormal 
(I) <enter> 


(M) 


Enter desired value for the standard deviation 


the default value is 18 per cent of the mean 


to accept press ENTER, else type percentage 


(C) accept default value 


(I) <enter> 
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(M) Enter number of workhours per day 

(C) for an average of 9 hours per day 

(I) 9 <enter> 

(M) Enter number of workdays per week 

(C) for an average of 5 days per week 

(I) 5 <enter> 

(M) Enter system stock number (e.g. 1234-12-123-1234 ) 
(C) use the CAESAR sample file 

(I) 1234-12-100-0000 <enter> 

(M) Compute Lambda for seueeesiel system 


(M ) 


systen Dislocation vithin Major Units 


Input filename for sustenm distribution file 


Default filename is DISTHIBN 


To accept default press ENTER or enter nane 





(C) use the default filename 


(ae) center> 
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(M) 


selection 
MECH. BRIG 33 z 
ARN’ D BRIG 9398 3 z 
MOUNT .BRIG 38 ) 
MECH. DIY 235) 
DIV. UNITS 125 ) 
ARM’ D. DIV 395 J 
Di¥. UNITS i2zd ) 
CORPS i336 3) 
CORPS UNITS 


RAMA ERR 
mi os) os U1 Co Ne 


Enter choice 





Weemernhe number of failures is 50. Therefore pick a 
major unit with less than 50 systems. 

frees” <enter> i 

Mey this was the Last input for ESTIMATE. 

(C) ESTIMATE generates various messages. 

(C) Display when the MTBFs are drawn: 

(M) Failure Time Generation 

(C) The next message is updated for each simulation 

(M) .. th Iteration for Simulation 

(C) within each simulation this message is displayed: 

(M) Subroutine Summation of consumed Items 


(C) the last message will be: 
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(M) Elapsed Time for 50 Simulations : xxx Weeks 


(M) PROGRAM END 
The program has terminated 


in the DOS environment. 


correctly. We are back 


The following six pages demonstrate the output of 


ESTIMATE with the data we just entered: 


- parameters for delay distributions 


- distribution of system within 
- summary of items and manhours 
- summary of items and manhours 
- summary of items and manhours 
- additional statistics 
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the corps 

on Org Mn level 
on DS/GS level 

On Depo twbevce! 


PAGE 1 
Number of Failures to be generated : 50 


Distributions and Parameters for Transportational 


—— eee ee ee ee i ee ee ee es i = 
—— ae ee es es es ee es es ee es ee es es ees es es es es es ee oe ee 


transportation delays - level user / org maint. 
G@ieeribution normal 

Mean = S000 Sigma = 0.300 

transportation delays - level DS 7 GS 
distribution normal : 

Mean = Z. 000 Sigma = On 7 O00 


transportation delays - level Depot / Industry 
distribution normal 


Mean = 16.000 Sigma = 1.600 

administrative delays - level user / org maint. 
distribution exponential 

Lambda= Om20 0 

administrative delays - level DS 7 GS 
distribution exponential 

Lambda= O2 167 


administrative delays - level Depot / Industry 
distribution exponential 
Lambda= Oe) 
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PAGE 2 


Dislocation of overload protector within Corps 


Major Unit # of systems 
MECH. BRIG 90 
ARM’D BRIG 90 
MOUNT. BRIG 30 
MECH. DIV 395 
DIV. UNITS 22 
ARM’ D. DIV 395 
Dive UNITS tZ22 
CORPS 1390 
CORPS UNITS 205 
Reserve 104 
Troetad 1494 


choice : 3 MOUNT. BRIG 
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PAGE 3 


Summary of Items and Manhours for 50 Simulations 


— oe oe ee ee ee es es ee ee ee es es es ees es ee ee ee ee ee ee ee ee ee es ee ee ee ee es ee es ee ee ee ee ee ee ee ee ee ee es ee ee ee ee oe 
— = ae oe ee ee ee ee eee es es es ee ee ee ee ee es ee ee ee ce ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es es es ee ee ee ee ee 


For Level :Org. Maintenance 


stock number Item Description # used 
iS 2-112-130-0000 battery back-up 27 
izo2—12-131-0000 charging unit 2? 
ims @—12-110-0000 case complete 13 
ggo2—-12-100-0001 wall mount 4 
i23¢—-12-120-0000 carrybag 6 
tees 122-121-0000 bag 6 
total consumed manhours on this level : 427.33 brs 
average manhrs within 4 weeks on this level : 140.22 ars 
average rounded number of mainten. personal : 1 repairman 
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For Level 


stock number 


PAGE 4 


:DS/GS Maintenance 


Item Description 


a ts EG GE GG GE GGG GG ee ee ee ee ee ee ee ee 
— oe oe cee cee ee ee ee oe C8 OOP COP eee Cee COP C8 = COP COP OP COP COP COP 8m O88 ome cme cme oe cme coe oe cee == Coe COs == COP OOF CEP OOF COP COP C88 cee coe oe C88 ome O88 cee oe oe 


1254-124131 0002 
1234-12212 0000 
l234-12Z21 27160) 
1234-12-131-0003 
l234-l2shet oor 
1234-l2-l2t2o00s 
1234-12-112~-0002 
1234-12>11320000 
1234-12-113-0003 
1234-12-22 20002 
1234-12-13 0002 


fuse 110V/2mA 
monitor panel 
function board 
fuse 12V/.5A 
capeettorn = 20V7_ imu 
button 

lamp mount 
processing unit 
output converter 
cotton bag 

data processor 


total consumed manhours on this level 


average manhrs within 4 weeks on this level 


average rounded number of mainten. personal 
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© 


N 


OQArPNOUN AdrP OWOE 


196.76 hrs 


64,57 ) hws 


1 repairman 
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For Level :Depot Maintenance 


stock number Item Description # used 
ferme — 112-112-1003 relais S 
feed —1l2-11i2-1002 transformer 1 
total consumed manhours on this level : 19.45 hrs 
average manhrs within 4 weeks on this level : 6.38 hrs 
average rounded number of mainten. personal : 1 repairman 


ou 


PAGE 6 


Additional Statistics 


total elapsed time for 50 simulations : 12.19 weeks 
total number of 4 week periods for 50 simulations : 3.05 
average system down time 3.05 Days 


average system availability : 95.00 per cent 
average maintenance cost per system :; $40.90 


tnitital system cost for MOUNT. BRIG: $40766. 00 
(systems and spare parts for 4 weeks) 


cost of additional 4 week supplies =: $402.63 
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ae Paogccan OBEHAVE 
QBEHAVE is the second of the two simulation 


programs in CAESAR that compute elle Wroyeal ye ikoe 
requirements for new systems. QBEHAVE sends results to 
the printer. Thus it is necessary to switch the printer 
on and align the paper. 

To start QBEHAVE, type from the DOS prompt: 
(I) C>QBEHAVE <enter>d 


(M ) 


ed Program Mode Menu +» 
a it ta A DE IGE 


. Check Queuing Behauiocy without 
Sensitivity Analysis (faster?) 


. Check Queuing Behavior with 
Sensitivity Analysis 


Default Value is @. 
To accept press ENTER, else enter value 





(C) let us use the full computational power of CAESAR 


(I) 1 <enter> 
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(M) 


Enter sensitivity analysis bounds in per cent 


The default value is 18, 


To accept default press ENTER, else tupe value 





(C) let us use the default value 
(I) <enter> 


(M) 


Enter the stockout risk factor r 


(6.864 r41.8 ) 


The default value is 8.1, 


To acceyt default press ENTER, else tupe value 





(C) let us use the default value 


(I) <enter> 
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(M ) 


Enter ave. shipping time far ordered ites in aays 


The default valua is 5 days. 


To accept default press ENTER, else type value 





(C) let us use the default value 
(I) <enter> 
(C) QBEHAVE starts sorting data for level Org Mn 


(M ) 


Level Org *m 


sort Data Entries 





(C) now assign servers on Org Mn level 
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(C) assign servers on DS/GS and DEPOT level 


(C) this screen looks like the one earlier, because the 


e 


number of servers has not yet changed 
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(C) one combination of servers has been calculated. 
PeeocOntiInunes until calculations with all 
combinations have been performed. Eventually, with 
two repairmen on each maintenance level, the screen 
looks like 


(M) 
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"az % } 3 Tor feat P4447 i 4, i sf 7 t.. eg’ ; 
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(C) each combination of repairmen on the different 
levels is printed 


(C) QBEHAVE starts analyzing the spare part consumption 


ee 


(M) 


Se DG ORS BESS AEE Crh Cee EMO Se I EB Se) see Wey OP ORL OLE ORS ty RD RS ERD © OEE toe tate inter mat a bxtem, nutes AES HO Da a Ip oo OD 


Aine tar ter ak ey cee rt ee ee ee a a a ee ae 0 aes ene) We-S pe  OPE ees ES 6 
mn 
Svesat” 





(C) the final results of this process will be printed 


(M ) HHHHRHHHHNHHKNHNHHNHHMN KN KN KH 


a Program: Hac va 
HHHHHHHHNHHHHHHNH HHH OH 


(C) this concludes the program QBEHAVE 
(C) the output contains the following information: 


- number of customers 

= number of farilures 

- number of servers for each level 

- number of delays for each level 

- max. queue length for each level 

- total waiting Utimertorseaciw re. 

- percentages servers are busy for each level 

- total elapsed time and number of 4 week periods 


for the service organization and 
- national stock number 

- initial stock level 

- final stock level 

- minimum stock level 


for the supply organization. 
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The following pages are the output of QBEHAVE’s 
sample run with data created earlier by ESTIMATE. 

Eight pages show different combinations of numbers 
fare pairmen on the three maintenance levels. Compare 
the waiting times and the percentages of time the 
servers are busy! 

The last of the output pages shows the behavior in 
terms of spare parts. Observe’ the bottleneck of 
insufficient stocks fOr eatem 3 eee oe Ot aie 
combinations ( the debits were only a maximum of one 
each ). One might want to increase the stock level for 


this item by one. 


aig 


Frosgram etart Tims is + 0é-236—-13927 Lis ies 


Queuing Behavior for Varying Numbers of Servers PAGE 1 


ty ly et cee GD GE ce) cme ce cm cme ce oe ce ce me ee ce ee ee ee ee ce ee ee ce ce ee ee ee eee ee ee 
ee me mmm ec cme ee ec cc cee cee eee eee eee 


LEVEL ORG MN 


4 customers 
413.94 hours 


no of customers = sO 
no of failures = SO 
no of servers = it 
no of delays = 41 


max queue length 
total waiting time 


average waiting time per waiting customer = 10.10 hours 
expected waiting time per entering customer = 8.28 hours 


percentage server 1 is busy = 75.4 % 
LEVEL DS/GS 


af 

11 

4 customers 
59.95 hours 


no of servers 

no of delays 

max queue length 
total waiting time 


Hou ou ul 


average waiting time per waiting customer = 5.45 hours 
expected waiting time per entering customer = 1.20 hours 


percentage server 1 is busy = 31.8 % 
LEVEL DEPOT 

no of servers 
no of delays 


max queue length 
total waiting time 


i 

0 

O customers 
0.00 hours 


average waiting time per waiting customer = 0.00 hours 
expected waiting time per entering customer = O..00 heugs 
percentage server 1 is busy = 3.1% 

Total elapsed time for 50 failures = 12.59 weeks 

Tera: ore of 4 week periods for 50 failures = So 
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STOCK NO. INITIAL STOCK FINAL STOCK MIN. STOCK 


aoa 112-130-0000 
1264 12=-131- 0000 
2oa—12-131-0002 
1234-12-110-0000 
Peoa—-1le—-ilz-o0000 
Peed —-12-192-1000 
@254-12-112-1003 
Peo Te -100-0001 
peoa—1e-13i-0003 
me ized—12-131-0001 
Mm baeoe-1e—-120-0000 
mer 62 oa—Te—-121-0000 
mee 3 teo4—-le-121-0003 
14 1234-12-112-0002 
me t12582—12-113-0000 
i? i23s4-12-113-0003 
Be i234-12-lel-000e 
Ve 329@-12-122-1002 
oS Weee—-12-113-0002 


OMNODOIPWNPe 


PrRrPrPNRPNNNONPBRPNHONWELWO CE 
PrRrPrRUOrRPPNNORrPAPRrRPPRPNWPN O CE 
oooo0ooorco0 00 oO 0 0 00 0090 
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Queuing Behavior for Varying Numbers of Servers PAGE 3 


— oe cee coe cee cee es es es ee ees ee ee ees ee ee ee ee ee ee eee ees ee es ee es ees es es es es ee es es ees ee ee ee ee ee eee ee ee ee ee ee 
— > aoe GE qe qe com ce cee ce ee ee es ew es ee ee es es ee ee es ee ee ee ee ee ee ee ee ee ee es es ee es se ee es es ee ie 


LEVEL ORG MN 


3 customers 
23.2 bourse 


no of customers = 30 
no of failures = a0 
no of servers = 2 
no of delays = iz 


max queue length 
total waiting time 


average waiting time per waiting customer = 1.93 hours 
expected waiting time per entering customer = 0.46 hours 
percentage server 1 is busy = 45.9 % 
percentage server 2 is busy = 31.1 % 


LEVEL DS/GS 


if 

fa 

2 customers 
69.05 hours 


no of servers 

no of delays 

max queuve length 
total waiting time 


6.28 hours 
1.38 hours 


average waiting time per waiting customer 
expected waiting time per entering customer 


percentage server 1 is busy = 32.5 % 


Devitt Oak 


no of servers = 1 
no of delays = 0 
max queue length = O customers 


total waiting time 0.00 hours 


0.00 hours 
0, 00 Bowne 


average waiting time per waiting customer 
expected waiting time per entering customer 


ofl 


percentage server 1 is busy = 3.2% 


Total elapsed time for 50 failures = 12.33 weeks 
Total number of 4 week periods for 90 failures = Sek 
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Summary of Item Consumption and Stock Levels PAGE 4 


— <p ce ce ee ee ee ce ce ce ee ce re ee ee ee ee ee ee ee es es es es ee ees es ss ee ee 
re mee cr cc ee ee re ce ee ee ee ee ae 


STOCK NO. INITIAL STOCK FINAL STOCK MIN. STOCK 


1234-12-130-0000 
f2o4—-12-131-0000 
i2e4-—12-131-0002 
234-12—110-0000 
jie4—1te-112-0000 
W2ee> 2-12-1000 
zee —#e—-11i2-1003 
t252-l2-100-0001 
izo8-12-1351-000s 
im  i232-12-131-0001 
11 1234-12-120-0000 
i  tleoe—-12-121-0000 
ao i12568—12—-121-0003 
ie l2oe-12-1le-0002 
BS iZ2ee—-12-113-0000 
16 1234-12-113-0003 
me tz2ee—-12-121-0002 
me deoa—-12-112-1002 
me 1284-12-113-0002 


O MWNOAIP WNP 


PrRPrPrPNRPNNNNPRPNNWPW YO © 
PRPPPRPNRrPrRPNNRFPWORPNNWOPENO O 
ooooooreoco;co0oo0o°ooo9o co} 
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Queuing Behavior for Varying Numbers of Servers PAGE 5 


ccm cm ce cc ce cc cs cc cc cc ce cc ce ce ce ee ce ee es ce ce ee ee ee ee ee ee ee 
ae ee cc cc cm ce cm cc cc ec cee ec es ce ee 


LEVEL ORG MN 


4 customers 
413.94 hours 


max queue length 
total waiting time 


no of customers = S10 
no of failures = S10 
no of servers = 1 
no of delays = 4l 


average waiting time per waiting customer 10.10 hours 


|| 


expected waiting time per entering customer S.28 hours 
percentage server- 1 is busy = 75.4 % 

LEVEL DS/GS 

no of servers = 2 

no of delays = 0 

max queue length = QO customers 

total waiting time = 0.00 hours 

average waiting time per waiting customer = 0.00 hours 
expected waiting time per entering customer = 0.00 hours 
percentage server 1 is busy = 31.2 % 

percentage server e2is busy = 0.6 % 

REVEL PEPOT 

no of servers = 1 

no of delays = QO . 

max queue length = QO customers 

total waiting time = 0.00 hours 

average waiting time per waiting customer 0.00 hours 


expected waiting time per entering customer 0.00 hours 


percentage server 1is busy = 3.1 % 
Total elapsed time for 50 failures = 12.59 weeks 
Total number of 4 week periods for 90 failures = Sree 
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ccm come cee cc cr wr cr wr wc rw re ss ss i i i 
Se mee ce ce ce er crc cc cr cr cr cr cc cr cc cw ce ce cc rc cc es ee ee i 


STOCK NO. INITIAL STOCK FINAL STOCK MIN. STOCK 


1234-12-130-0000 
bee4- be-131-0000 
i64-12-131-0002 
i2@e@4— 122-110-0000 
iae4—l2-112-0000 
b234-12-112-1000 
ae4>12-112-1903 
l2s4=12-100-0001 
lize4—1e-131-0003 
Mm thee4=-12-131-0001 
i 9t234-12-120-0000 
ie 8234s 1e-121-0000 
mS I2s4-12-121-0003 
mM 1234-12-112-0002 
Mm  1234-12-113-0000 
Mo §l254e12—-113-0003 
me btieea-le—-121-0002 
™ ¢254,12-112-1002 
PA 1264—-12-113-0002 


OWMONOOAPWNreE 


PRPPrPNrFPNUNNNPRrPNNWEWO OO 
PRPRErPNUPPNNPPPPNWEN OO 
oooo0oooreooo0o0o0o°0o0o0o00 0 
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Queuing Behavior for Varying Numbers of Servers PAGE 7 


LEVEL ORG MN 


no of customers = 30 
no of failures ~ BO 
no of servers = 2 
no of delays - 12 


3 customers 
23.21 7n0urs 


max queue length 
total waiting time 


1.93 hours 
0.46 hours 


average waiting time per waiting customer 
expected waiting time per entering customer 


percentage server 1 is busy = 45.9 % 
percentage server 2 is busy = 31.1 % 


LEVEL DS/GS 


no of servers 

no of delays 

max queue length 
total waiting time 


2 

eZ 

1 customers 
i.74 hours 


average waiting time per waiting customer = 0.87 hours 
expected waiting time per entering customer = 0.03 hours 


percentage server 1 is busy = 28.1 % 
percentage server 2 is busy = 4.3 4% 
LEVEL DEPOT 

no of servers = 1 

no of delays = 0 

max queue length = O customers 


total waiting time 0.00 hours 


I 


O,00 hours 
0.00 hours 


average waiting time per waiting customer 
expected waiting time per entering customer 


1 


percentage server 1 is busy = 3.2 % 
Total elapsed time for 90 failures = 12.33 weeks 
Total number of 4 week periods for 90 failures = Cat 


106 


Summary of Item Consumption and Stock Levels PAGE 8 


STOCK NO. INITIAL STOCK FINAL STOCK MIN. STOCK 


12 4512—-130-0000 
m2oe4—12-131-0000 
1264>%2-1351-0002 
12o4—Pe-110-0000 
iecag—le-1i2-0000 
tZoeaewe—-tte—-1000 
1234-12-112-1003 
Peon —1eo-100-0001 
m2o4—-12=-131-0003 
mer lS4—-—1Te-1351-0001 
mi i1264—-12-120-0000 
mee 1 288—-—12-121-0000 
HS Lega@—12—-121—-0003 
Paweizom le-1llec-Oe0e 
mo i234—-12-113-0000 
ier eoe— 112-113-0003 
me. 12304—-12-121-0002 
we “Size8=12-t12e-1002 
moet 234-12-113-0002 


OOoONo dP WHF 


PRPrPPNPNNNNFRPNNYUA WO O 
PrP rP NPP NNPWAPNNWARNO O 
SOCOOCOrP SCO GOSC OCD OOOO 


107 


APPENDIX B 


USER’S GUIDE 


The summary of CAESAR in this user’s guide enables 
the user to use CAESAR without need of the theoretical 
overhead in the main part of the study. 

Each program in CAESAR will be explained in detail. 
Inputs and outputs are clearly marked and the user can 
easily follow the program flow. 

All programs of CAESAR were written and compiled 


with the program TURBO BASIC [Ref. 6]. 
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i Introduction 


a. Purpose of CAESAR 

The programs contained in CAESAR were written 
for the IBM XT/AT or compatible computers to estimate 
the logistics requirements for a new system in terms of 
Manpower and supply stocks. 

CAESAR, (Computer Aided Evaluation of Supply 
and support on All Repair levels), uses inputs like 
system distribution, system characteristic data and 
major unit data to create a scenario within any major 
unit that provides conclusions about the behavior of a 
given number of failing systems in this scenario before 
the system is introduced into the Armed Forces ( or any 
other customer with similar structures). 

CAESAR is strictly thought of as a decision 
making aid, it must not be confused with artificial 
intelligence. The output of CAESAR is able to 
explicitly suggest reasonable logistical structures and 
to show alternatives to the suggested solution. Thus it 
can be a valuable tool in the hands of a manager, 
responsible of introducing new equipment and _ the 
accompanying supporting network. 

System requirements for CAESAR are at least 
512 kByte of memory, one floppy disk drive anda 


harddisk. The use of extended or expanded memory and 
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the installation of a RAM-Disk will speed up the 
programs significantly. 

Operating system is DOS version 2.10 or higher. 
A printer has to be connected for the programs ESTIMATE 
and QBEHAVE, otherwise the programs will generate an 
error message and abort. 

For the following instructions the use of a 
harddisk as drive C is assumed. 

b. How To GetVotarved 

To be able to use the program, boot-up your 
computer and after getting the DOS-prompt "C>" create a 
sub-directory on your harddisk with the following 
command : 

C>MD\CAESAR. (You do not have to type C> !) 
Make this sub-directory your current directory: 
C>CD\CAESAR. 
Now insert the CAESAR I floppy disk into your A-drive. 
If you are not sure which drive is the A-drive consult 
your computer manual. 

To copy the program files from the CAESAR I 
floppy disk to the harddisk enter the following 
command: 

C>CO Rigen. Gre 
This command will copy all files from the 


floppy drive A to the sub-directory CAESAR on your 
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harddisk C. Repeat the above procedure for the CAESAR 
II and III floppy disks. 

Now you are ready to enter the structural data 
for the major units and the new system. These data will 
later be used in the programs that perform the 
simulations. 

2. Program TACMIX.EXE 
a. Start TACMIX 

TACMIX is the graphic interface for CAESAR to 
provide the input of major unit structures. The program 
is written and compiled in TURBOBASIC. TACMIX is found 
on CAESAR disk I. Familiarity with the common tactical 
signs is assumed (see app. C). The program will present 
the tactical signs of both the US and West German 
Armies. 

Pe start DPACMIX simply type: 

C>TACMIX. 
The program will respond with the main menu as 
shown in figure B.1. 

After your choice the display of all available 
major unit types will appear (except for option 9). 
Figure B.2 shows this screen. Now you have to chose the 


major unit you want to work with. 


Tae 


PEE FEE FE EEF EEE IEEE SE 
Pe Program TACM IX PEIEC-P 
ee Opt ions: PEP 
Stata — SoD P-E-BP-Sf—SalP- PE-al— PE -P-PE- LED DE DG EPE DE 


—- Create Meu Organization ....... Ci3 
- View Existing Organizaticm ....- CA) 


~ Modify Existing Organization ..C33 


—~ Terminate Program ...c8ceseee oe CODD 


Enter Number of Choice :; 


Figure B.1 Main Menu Program TAGIME: 


TSS = 
SS = 


6 
><] [ee] *] EA 
13 16 17 19 


enter major unit code number : 


Figure B.2 Major Units Display Sserecn 


ihe 


b. Option 1: Create New Organization 
In option 1, create a new organization, the 
program will present several screens like the one in 
Figure B.2 with all possible unit types for your 
selected major unit. 
On the bottom of the screen you will read the 


following message: 
femwer Untt code number (ENTER for next frame) : ". 


If you decided you need any of the depicted unit 
types for your major unit, simply enter the code number 
below the symbol. End your input with the ENTER Key. 
The program wants to Know how many of these unit types 
are in the major unit you chose and displays this 


message on the bottom of the screen: 
"enter number of these units (default=1) :". 


You can enter any number now. If you only have 
one of this unit type in your major unit, simply press 
the ENTER key and TACMIX will set the number to 1. 

Repeat this for all unit types on this screen 
that you want to include in your major unit. 

When you have entered all wanted units from the 


current graphic screen, press the ENTER key at the unit 


aes 


code number prompt to see the next available Rasta ets 
symbols. Take your choices as before. Ifyou press the 
ENTER key at the unit code number prompt after the last 
screen is displayed, TACMIX will stere giowr inpae ei 
SE€quentiaivweaata Trile. 

Depending on the type of major unit you chose, 
the file will be called "CORPS", "“Diipai=or. 'DeiGcw 
Where the "x" or "xx" stand for the number of the major 
unit, you chose. 

hog .s tne cont eneeios file 'BReiGi2”" Miehuvioecs 


like depicted in Frpurevrsr sae 


Majer lnit Code Number Munber of Unit Types 
(i2- Arwored Brigade) 


tnit Code Munber Number of this Unit 





Figure B.3 Sample Contents of a Majer Unmet Fake 
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“Working samples for all major unit types are 

PiemuGged On the CAESAR data disk. 
Pee lone 2s View Existing Organization 

itn) Optwon 2, view existing organization, the 
program will display the screen shown in Figure B.2. 
After your choice of the major unit, the program will 
access the major unit data file and display all of the 
unit types within this major unit on consecutive 
screens. Figure B.4 gives an example for major unit 14 


(airborne brigade). 


Pr 
Px). =) C2) Cel Gea 


Press any Key 





Figure Bet View Airborne Brigade 


If there are more than one units of a specific 
type, then there will be an index outside the lower 


right corner of the symbol, indicating the number of 


aS 


these units. In Figure 8.4 there are three Umit types 
48 and one each of the others. 

To get to the next screen, simply press any 
key. To get back to the main menu after the last screen 
for your chosen major you press any key. 

ad. Option 3: Modify Existing OveanizZa tion 

In option 3, modify existing organization, the 
program will display the screen shown in Figure B.2. 
After your choice of the major Unit, the program wii 
access the major unit data file and display all of the 
unit types within this major unit on consecutive 
screens. Figure 8.5 gives an example for major unit 12 


(armored brigade). 


eS 


. 
44 34 22 


S| EY] 


124 139 148 ; 141 
Any Modifications ? 





Figure B.5 @iledifty iaijor Unie sZ 
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For each screen you will be asked: 
many “Modiftcations 7”. 


it vem respend with "n" or "N" (do not type the 
quotes), then the next screen will be displayed. If 
there is only one screen or seo iaye already reached 
the last one, "n" or "N" will get you back to the main 


menu. If you press any other key you will be asked: 


"Which Modification ? (QO=erase,i=change number of 


units,2=add a unit)". 


You decide now, which kind of modification to perform 
amadgeenter the appropriate number. The program will 


prompt you: 
"Which Unit Number ?", 


and you enter the code number for the unit to be 
changed. } 

If you wanted to erase a unit, the screen will 
now.be wedrawn without the erased unit - the file has 
been medified in the meantime. 

For the change of number of units you see this 


prompt: 


Lee 


"Enter new number of units". 


After you entered the required number the 
screen will be redrawn and the modification will have 
been made both on the screen and in the file. 

| If you want to add another unit type you enter 


the unit code number at the: 
"Which Unit Number" 

prompt. Now you will be asked to 
"Enter smumber Ot snmew ouUlliitc. | 


When you enter this number the data file will be 
updated and the screen will be redrawn including the 
new unit type and the correct number of this type 
outside the lower right corner of the symbol for this 
unit type. Since the unit code numbers are in ascending 
order, the unit you have added might be on a later 
screen. 
e. Option 9: .lerminates aor am 

When you are finished with the program you 

chose option 9, termination of the program. 


Do not turn off your computer without running option 9. 


You might loose data if not all file are closed. 


LES 


After you chose option 9, the program will get 

you back to the DOS prompt 
“=)>". 
3. Program INMILDAT.EXE 
a. Start INMILDAT 

INMILDAT is the graphic interface for CAESAR to 
provide the input of the distribution of the new 
systems within the corps. INMILDAT can be found on the 
CAESAR I disk. Familiarity with the common tactical 
signs is assumed!. The program will present the most 
commonly used tactical signs of both the US and West 
German Armies. 

INMILDAT will create a new data file with the 
Mott code numbers of the selected units and the 
respective number of systems. If you.want to Keep the 
previous data file, make sure to select another name 
for the new one or rename the old one and type from the 
BOs prompt "C»": 

"C>RENAME DISTRIBN DISTOLD" | 

This DOS command will rename the data file 
Titsotkion* into "DISTOLD". You can use any other name 
up to 8 characters, as long as it is not the same as 
eme already in use. Now, when you start INMILDAT, you 
can use the file name "DISTRIBN" without loosing any 


previous data. 


lsee Appendix C 
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To start INMILDAT siumpign tyne 
C>INMILDAT. 
The program will immediately respond with the 
fins tani t Vsgunibpole 
be Operates iii DA 
The first graphic screen will show the anti- 
aircraft defence regiment, code number 21. Figure B.6 


Shows this screen. 


ANTI AIRCRAFT DEFENCE REGIMENT 


how many systems ? 





Figure B.6 Sample INMILDAT Screen 


You will be asked: 


"how many systems". 
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If there will be some of the new systems in 
this unit type, enter the number of the systems. If 
not, press ENTER to see the next unit symbol. Once you 
enter a number you will be asked to verify: 


“entry.ok". 


Any keystroke except "n" or "N" will accept the 


input and the program will ask: 
“another entry". 

Any Keystroke except "n" or "N" will lead to 
the next available symbol until all possible symbols 
Dave been presented in the described manner. 

After the last symbol you will be asked: 

"aG@mgou wont a reserve". 
If you decide to have one,answer with "y" or 


"Y". The next required information is: 


"in per cent or absolute (p/a)". 


a 


Now enter the appropriate letter (P or A). 


Should you decide for per cent, the program will ask 


you to: 
"enter percentage (e.g.:25)". 


Please enter "now the” value oi "the percentace. 
not the fraction of 100. Given the example, for 25 @ 
(.25) you would enter the number 25. Do not enter .25 


unless you want .25 &@. 


In the case of a reserve in absolute numbers 


the program will ask you to: 
"enter number of systems". 


After this entry you will be asked to enter a 
name for the data file that will contain the system 


distribution data: 


"To save data name file. 
Default file name is DISTRIBN. 


To accept default press ENTER or enter file name". 


Now you can enter the file name you prefer or 
use the above default file name. If you decide to use 


the default, simply press the ENTER key and the data 


122 


will be saved into "DISTRIBN". Otherwise they will be 
save into the file you named. You can enter any name up 


to 8 characters. 


' Do not use a name that has already been used before ! 
The new file will overwrite the old one and all 


previous data will be lost ! 


4. Program INSYSDAT.EXE 


a. Input Format for INSYSDAT 
INSYSDAT is the interface for CAESAR to enter 
the characteristic data about the new systems. To be 
able to enter the appropriate inputs you have to know 
the formats of these inputs. You will be asked for the 
following entries 
(underlined entries will be explained in detail) 


Item Type 

National Stock Number 
Item Description 
Number of Items 

Price in Dollars 

MTBF in days 


Replacement Level 


Repair Level 
MTTR in hours. 


Item Type: to find the required number you have to 


break up the system (see figure B.7). 


The system (level 1) consists of several 
components (level Ory Each of these contains 
subcomponents (level 3) which themselves contain 
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subcomponents (level 4) etc. If an item cannot be split 
up further, then it is a part (level 9o0 )Partc cae 
found on all levels except the system (level 1). 


Figure B.7 shows the schematic structure of @ sycrcue 





Figure B./7 system Structure 


The above schematic requires the™ecllassi i len mmem 
of all items, of which the system consists, in one of 
the levels 2- 9. Use this classification as 4aeutee-. 
the “Teen Wunbers. 

EXAMPLE: 

Consider @ car as the system. “ft wii Geucoge. 
"1". Now take the body. [t isa compote ot theca 
and will be coded "2". The rear hood is a subcomponent 
"3" and the lock on the Shoed sw asseubecmeenent. = | 
The opening mechanism of the lock is subcomponent "5" 


and consists of parts "9" @ike bolts, nutve7 ccc 
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National Stock Number (NSN): this is a 13-digit number 


mm wre following format (e.g.): 
1234-12-123-1234, 


where the fifth and sixth digit (-12-) should be the 
same for all items in the system, because the program 
will not use these to discriminate between items. These 
two digits are the code for the country where the item 
is built. The name of the random access data file that 
is generated for each systen, component and 
subcomponent is 
AAAADDDD.CCC 
derived from the National Stock Number 
AAAA-BB-CCC-DDDD. 
Replacement Level: this is the level where the failed 
item is replaced at a maintenance facility. For the 
system it is the level where the component is replaced, 
for the component, where the subcomponent is replaced 
etc. Parts can be replaced on any level. 


These are the possible levels: 


Organizational Maintenance (Org Mn) level "2" 
Direct/General Support (DS/GS ) level "38" 
Depot/Industry Maintenance (Depot) level "4", 


Please enter the code number for the appropriate level. 
Repair Level: this is the level where the replaced item 


is repaired at a maintenance facility. For the system 
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it is the level where the component is repaired, for 
the component, where the subcomponent is repaired etc. 
Parts can be repaired on any level. 


These are the possible levels: 


No Repair level "0" 
Organizational Maintenance (Org Mn) level "2" 
Direct/General Support (DS/GS ) level "3" 
Depot/Industry Maintenance (Depot) level "4", 


Please enter the code number for the appropriate level. 
b. Start INSYSDAT 
To start INSYSDAT simply type at the DOS 
prompt: 
C>INSYSDAT. 
c. Operate INSYSDAT 
For each entry you will find a sample input. To 
become familiar with the program, you are welcome to 
use these examples. 


The first program prompt will ask you for: 


"Item Type (1=System, 2=Component, 


3...8=Subcomponent, 9=Part)". 


You are required to enter the type classification code 
(1 to 9) as described in paragraph a. 
E.g. for a component enter 2. 


The next prompt will ask you for: 
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‘National Stock Number :". 
Please enter the stock number in the format described 
in the paragraph a (AAAA-BB-CCC-DDDD). 
E.g. enter a stock number like 1234-12-140-0000. 


If the item type code is 2 or greater, the program will 


now ask you: 


"belongs to what item (next level stock number ):" 


You want to enter the national stock number of the next 
higher level item here, which in the case of a 
component would be the system, in the case of a level 3 
subcomponent the component etc. 

For the system in this example enter 1234-12-100-0000. 
With this information the program is able to check if 
mors tem is already stored under the same next level 
item. If it is, you will see the following error 


message. 


"input error:item already stored 


press any key to continue" 


and the program will start from the beginning. If the 
item is not yet stored the program will proceed and you 
mell be “asked to enter: 


“"Ttem Description :". 


ie 


E.g. enter Test Item. 


The next inputs only apply to item types 2 to 9: 
"Unit Price in US Dollars : $". 


Give the price for one item. 
Bog.) Ly pe ee ooo s 


Now the program will ask you for: 


"How many of these Items :" 


Enter the actual number of these items within the next 
level item. Do not enter the overall total number of 
this item in the complete system. 

E.g. enter 5 


The next prompt will be: 
"MTBF (assumed) in Days :". 


Enter here either empirical data, an estimate or the 
proposed MTBF by the manufacturer. 

E «Sas t ype 120. 

The next input will be: 


"Replacement Level (2=Org Mn,3=DS/GS,4=Depot)". 
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Use the code number (2 to 4) for the replacement level 
as described in paragraph a. 
E.g. enter 2 for organizational maintenance. 


You will now be asked for: 


"Repair Level (0O=no,2=Org Mn,3=DS/GS,4=Depot)". 


Again use the code number (0,2 to 4) for the repair 
level as described in paragraph a. For a part, repair 
level O is set by default and displayed on the screen. 
E.g. enter 3 for direct/general support. 


The next prompt will ask you for: 


"MTTR (Repair/Replace) in Hours :" 


Enter here the actually needed repair/replace times, an 
estimate or numbers given by the manufacturer in hours. 
Pages Or 200 minutes you enter 3.3 

You now have completed the input phase. To 
verify your inputs the screen in Preoire Bee with a 
summary of your inputs will be displayed. 

Figure B.8 shows the data you just entered to 


[enmity the input. 
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7 Component 
Mational Stock BRunber 1234-12-148-6563 
Item Description Test Iten 
imit Price in US Bollars :$ 253.98 
Ad Gg 
124 daus 
Organ. Maintainance 


Repair Level - Direct “ General Support 
MITR Crepliace) 3.3 hours 


Entries correct 7 (yun) 





Pivoare B.S Summary of Inpmits fonmiNsyenAT 


If you want to accept the inputs press "'"y vor 
"Y" IT Ret. presse” onmmaa ie 

After accepting the data are written into 
random access files. This file is for item type code 
numbers 2° tO 9 ecuhe Sacer “higher item -stock number 
converted into a file name as described in paragraph b. 
For the system it is its own stock ARIE LON Convene a 


into’ Sat Trormat. 
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The last prompt in this sequence is: 


"another entry ?". 
peeor “y" get you to the program starting point and 
you can enter the next set of data. Any other key will 
end the progran. 
a. Error Messages 
INSYSDAT handles three different types of input 
errors: 
Invalid Repair Level 
If the repair level for any item is less than the 
replacement level you will see the following error 


message: 


mmipat ermer: repair level invalid 


press any key to continue" 


The program aoe an earlier input error and 
starts all over again. 
Item Already Stored 
If an; item aes the same stock number has already 
been stored under the given next level item stock 
number then this message will be dispayed: 

"input error: item already stored 

press any key to continue 


The program starts from the beginning. 


Loa 


Number Exceeds Maximum 

The number of data sets in the random access files is 
restricted to 95 for each file to guarantee 
reasonable run time of the program. If the entered 
data set exceeds this number you will see this 


message: 


"input error: number of items exceeds maximum 


press any key to continue" 


To avoid this message recheck the structure of the 
system. It might be possible to define another item 
to decrease the number of items in this specific 
level. 

Make sure that all data files for the systen, 
the components and the subcomponents are in the same 
directory. Otherwise the program is not able to 
search for already stored items. Furthermore the use 
of the data files by the programs ESTIMATE and 
QBEHAVE requires that they will be in the same 
eee as these programs. 

With the input of these data the process of 
generating data files is complete and the data can 


now be evaluated. 
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4. Program ESTIMATE. EXE 
a. Start ESTIMATE 

ESTIMATE is one of the two major programs in 
CAESAR to simulate and compute logistics requirements. 
The other one is QBEHAVE. ESTIMATE combines the data in 
the major unit structur files, created by TACMIX, the 
data in the system distribution file, created by 
INMILDAT and the system data, created by INSYSDAT. From 
these data it simulates the new systems in the chosen 
Major unit for a given number of failures. After 
ESTIMATE finishes the SAMPSIZE trials for all levels of 
maintenance the number of manhours and comsumed parts 
as well as all related times will be known. 

The generation of the various times is based on 
the assumption that all times have known distributions 
aitbce parameters are also known. If you are not sure 
about the distribution or the parameters for an input, 
take a guess for the distribution and then use the 
default values. That should give reasonable results. 

For MTTR and MTBF the distributions are assumed 
to be exponential with the given values as means. 

ESTIMATE requires a_=printer for the output, 
otherwise DOS will meaner awe an error message and abort. 

To start ESTIMATE simply type at the DOS 
prompt: 


C>ESTIMATE. 
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b. Operate ESTIMATE 
As soon as you start ESTIMATE, it will ask you 


Core 


"Enter total number of failures to similate (<=1000):" 


The number you enter here is the number of failures to 
generate. This is not the number of systems ina 
specific major unit. These numbers are independent of 
each other since the number of systems depend on the 
major unit type that is chosen later in the process. 
The number to be entered has to be at most 1000 and 
will be printed. The greater the number you pick, the 
better the prediction will be, but also the longer the 
runtime of the program. 


After this the program will tell you to: 


"adjust paper in printer 


press a key to continue". 


Make sure your printer is connected and online 
and that your paper is at the top of a new page. Press 
any key to proceed. The next required steps are to 
enter the distributions and parameters of the 
transportation and administrative delay times for each 


of the three maintenance levels. 
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Figure B.9 shows the screen for the selection 


of levels. 


Enter required information about the transportation times (one way): 
- on the user / org maint. ep ( 1) 


- on the bs / ¢ @ (2) 
- on the Depot / Industry level (3) 


- no wore entries (9) 





Figure B.9 Menu for Administrative Delay Times 

You have to enter data for all levels of 
maintenance. Do not skip any input since these data 
fee be Used later in the program. You may, however, 
meme tne detault values for each distribution. So, enter 
a "i" for the Org Mn level and the screen will present 
meme available distributions. 

Preomre 68.10 shows your options for the 
distributions. Pick the one you want or guess at one of 
them. If you do not want to have a random time pick the 


fixed value. Your delay time for the selected level 


ros 


will in this case not be generated by a random number 
generator but wil be treated as 4 come rmant. 


These are your options for (thew@ets ty eo copeneen 


~~ transportation times (one way) 
Enter desired distribution for the time delays: 


uniform ( i 


noymal 
exponential 


- ¢3) 
fied C33 





Figure B.10 Distributions of Delay Times 

Figure B.11 shows a screen prompting for the 
lower limit of a uniform distribution as an example for 
a screen to enter parameters HP 3 the distributions. 

As soon asa distribution with its respectine 
parameters has been entered, the orogram wil erie 
these. When the input is complete for aael maintenance 
levels this information will also be @avallabteeingaa 


auxiliary data file 00G 


6 


Riise lhseascemple screen to enter parameters: 


transportation times “fone way) 


On the user / org maint. level, enter for the uniform distribution 


the lower linit in hours 
the default value is : i 


Want to accept default value - press ENTER key? 





Figure B.11 Enter Parameters for Distribution 

If you entered wrong data, simply pick the 
reve. 2Sain at the mena shown in Figure B.9 ama, envuer 
tae connect wmumberse When you have entered all the 
transportation delay time distributions for the three 
femelle eo@errectly, enese eption 9 to get to the screens 
for the administrative delay times. These screens 100k 
Ghersame as the previous ones. Enter the data for all 
three levels and close the input with a "9" at the 
level menu (see Figure B.9). This will conclude this 


phase of the program. 


Low 


Next enter a few additionally required data. To 
be able to compute the time frame ESTIMATE will ask you 


iO; 
"Enter number of workhours per day". 


Give here the average number of both the system 


and the maintenance workhours on a workday. Then 
"Enter number of workdays per week". 


Again enter the average number of days here. 
Now the program needs to know for which system the 


Simulation run has to be performed. Therefor: 
"Enter the System Stock Number (e.g. 12384-12-123-1234)" 


You enter the national stock “number — for tie 
overall system in the format given in the parentheses. 

For the last part of the interaction with the 
user, ESTIMATE needs to know where to efind. Some 
information about the system distribution within the 
military structure. 

Figure B.12 shows the screen that asks for the 


name of this file. 
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System Dislocation vithin Major Units 


Input filename for system distribution flle 
Default filename is BISTHIEN 


To accept defauit press ENTER or enter nane 





Freure Belzd Name of System Distribution File 


After this entry the program takes one major 
Umit aiter the other and finds in the appropriate data 
mele ali “Unit types Within the major unit and checks 
[fietelt they contain the system in question. Finally, 
after all units are checked, the total number for that 
major unit is determined. For division level there will 
be two numbers computed, one for the divisional units 
and the other one for the total number including the 
subordinate Deroacdes. | bhe “Same is valid for the corps, 
iMemewich the number for the corps units and the total 
PMecludune the subordinate divisions will be computed. 
miGariy. the program willl find the number for the 


Zwemve we Nayjor Unites, that do not contain any of the 


cao 


systems, will not be taken into account. Figure B.13 


shows the menu for the major units. 


Customer selection 
MECH. BRIG Sa 3 
ARM’D BRIG 98 +3 
MOUNT .BRIG 38 ) 
MECH. DIV 395 ) 
DIV. UNITS i2S ) 
ARN’ D. DIY 335: ‘*) 
DIV. UNITS 125 ) 
CORPS 1396 }) 
CORPS UNITS 


toa 


PA em AO OP ON 
mwa mt Ua i NX 
|: 


= 
= 
= cm 
= = 
— o> 
— a 
>= — 
= a 
—= se 
_=—_ 
= = 
—[ —_ 
—[_ =» 
—_ 
= = 
—_[ —_» 


Enter choice 





Figure B.13 Menu for Major Units 

The number in parentheses stands for the number 

of systems in that “particular teajom sume Enter seme 
number (1 to 10) that represents your choice. 
| This was the last input for ESTIMATE. 

Now the computation ee BOTIMATE Will @gispiay woe 


it is just doing with messages such as: 


"Compute Lambda for overall system" 


"Subroutine MTBF Generation" 
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"xx th Iteration for Simulation 


Subroutine Failure Generation" 


"xx th Iteration for Simulation 


Subroutine Update Data Files" 
"Subroutine Summation of consumed Items", 


where the xx stand for the numbers inserted by the 
program at execution time. The final screen with the 


following message is shown in Figure B.14: 
"elapsed time for xxxx simulations : xxx.xx weeks 


PROGRAM END" 
Before this message appears on the screen, the 
Ppramecr Will have printed the consumed items and 
manhours for each level of maintenance and the planning 
figures for a four week period. Also statistical data 
about the elapsed time and the systems’ status plus the 


total cost of parts will be provided. 
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elapsed time for 58 simuiations - 





Figure B.14 End Screen Program ESTIMATE 


5. Program QBEHAVE.EXE 
a, obart Obra AVeE 

QBEHAVE is the second of the two major programs 
i CAESAR ite simulate and compute logistics 
requirements. The other one is ESTIMATE. QBEHAVE 
recomputes the data from ESTIMATE, the idealized run. 
But’ now it simulates enema ae systems as customers 
in a real service (en @aigoumic line Customers have to form a 
queue and will be served- as soon as a server is 
available. 

thre  newmber on servers is determined by 
Bol Tew E.. OBEHAVE takes this number and, if ibis Operon 


is chosen, computes for a given bandwidth, minimum one 
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Server, on either side the real behavior. It is 
assumed, that at least one server will be assigned to 
each level of maintenance. 

A printer is required for QBEHAVE to avoid a 
DOS error message. 

To start QBEHAVE type at the DOS prompt: 

C>QBEHAVE. 
b. Operate QBEHAVE 

All required data, distributions and related 
information will be obtained from auxiliary data files, 
created by ESTIMATE and the data files containing major 
unit, system and organizational data. The first input 
for QBEHAVE is the choice of either the verification of 
the numbers obtained from ESTIMATE or a sensitivity 
analysis of the numbers (see Figure B.15). QBEHAVE 
computes its results for the same failures as ESTIMATE, 
to assure the comparability of the two sets of figures. 

After this choice, the user has to determine 
the sensitivity bounds (see Figure B.16), the stockout 
risk factor (see Figure B.17) and the average shipping 
time for ordered items (see Figure B.18) to provide the 


basis for the restocking computations. 
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sone Program Mods Menu 29 
SSE ee 


-. Check Queuing Behavior ulthaut 
sensitivity Analysis (faster? 


. Check Queuing Behavior vith 
Sensitivity Analysis 


Default Value is B. 
To accept press ENTER, else enter value 





Figure B.15 Program Mode Menu 


Enter sensitivity analysis bounds in per cent 


The default value is 18, 


To accept default press ENTER, else type value 





Figure B.16 Choice of Sensrtivity Bewmnds 
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Enter the stockout risk factor r 


(8.8 ¢r¢i1.8 ) 


The default value is 8.1. 


To accept default press ENTER, else tupe value 





Figure B.17 Input of the Stockout Risk Factor 


Enter ave. shipping time for ordered items in days 


Tha default valua is 5 days. 


To accept default press ENTER, eise type value 





Peeune BealS Impwteof the Ave. Shipping Time 
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QBEHAVE will always display what it is just 
computing, hae provides the .user Withee thespr ocman 
status at each time. 

When the program is started, the first thing to 
compute is the sequence of entry data for the Oro 
queue. This sequence determines all other times tor the 
different maintenance levels. 


Figure B.19 shows the message for this step. 






i 
i 
f 
i 
i 
i 
! 
8 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
| 
i 


Figure B.19 QBEHAVE Sort Screen Org Mn 


After these data have been sorted, the 
customers will be served in their sequence of entering 
level Org Mn. nese time the customers leave service 
giclee eae computed sama the time the systems are 


operational again. Furthermore, QBEHAVE keeps track of 
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fe pare Consumption “and™ wili, at the end of the 


Droeram rum, print the supply levels. 


Preume 5.20 dispWays the Screen,” that is shown 


duranmes these computations. 
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Figure B.20 Service on Org Mn Level 


The times, the customers leave level Org Mn are 
the failwre times for the next level, DS/GS. 
Transportational and administrative delay times will be 
oerae@. ine Service enter times are computed and brought 
into sequence. 

Bee Betrore, the customers will be served and 
B@ave Service. The Spare parts consumption will be 
motee. The repaired items will go back into the supply 


chain as spares for the lower maintenance level. 
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The last step for the maintenance portion of 
the program are the computations for the Depot level. 
They are performed using the same algorithms as before. 
The times of failure for the customers at the Depot 
level are the times the customer leaves the lower level 
service. Transportational and administrative delay 
times are added. 

After each sort routine, the program will 
display the service screen with the number of servers 
available on all levels and the customer being 
serviced. When all three levels are computed, the 
current combination of servers on each level is printed 
with: 

- number of customers 

- number of failures 

- number of servers for each level 

- number of delays for each level 

- max. queue length for each level 

- total waiting time for each level 

- percentages servers are busy for each level 

- total elapsed time and number of 4 week periods 
Figure B.21 shows the screen for the sample run 


after all combinations of servers on all levels have 


been computed. 
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raoune B.al semvice On Depot Level 


GCBEGAVE wierd now analyze the spare part 
Consumption. The times, when items were needed are 
mow. wMwolMATE suggested the stock Pevels. QBEHAVE 
uses these suggestions. Refill of parts will be 
performed every four weeks with constant increments. 
All other repairable items will have the initial stock 
Revel. After eoenie Giewaewl tl be rerouted into. the 
supply chain. There will be no APO ano Lnese 
Phems | 


Figure B.22 shows the screen, that is displayed 


fwaenoeunese COMpPULAatTIOnsS. 


as 
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Figure B.22 G@ompute Spare Part Behavior 


The spare part consumption will be protocolled 

on the printer including: 
—- national stock number 
- initial stock level 
- final stock level 
- Minimum stock level. 

That concludes the program OQBEHAVE. The output 
Ofw@QBEHAVE offers any array com alternatives for server 
numbers as well as the trade-offs between waiting times 
and the server numbers. From these the decision maker 
can chose his preferred option. Ghee tatte ceo Se 


part consumption Can suide To Gecl. lena b oui 


respective stock Weverce 
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Tees total number of output pages can be 
computed as: 
(total number of pages) = 
= combinations of server numbers + i 
= (number of mutations level Org Mn) * 
(number of mutations level DS/GS) * 
(number of mutations level Depot) + 
(one page for spare parts). 
E.g. Org Mn level (5+/-1).servers: 4,5,6 
DS/GS level (3+/-1) servers: 2,3,4 
Depot level (1+/-1) servers: 1,2 (min 1!) 
total number of pages 


3 * 3 * 2+ 1 = 19 pages 
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APPENDIX C 
TACTICAL SENS 
Appendix C summarizes the tacuica sion - eee aaa 
the programs of CAESAR. This is the standard jig 


for unit “sizges: 


XXX Corpse 
XX division 
Be brigade 
aie regiment 
| | battalion 
| company 


The tactical signs are omdered With respect te une. 
S26 eeume the CAESAR code numbers. This order does not 
imply any other meaning. 

The display format is as follows: 


symbol CAESAR code number 
Gescietp taom 


Here are the most commonly used tactical signs of 


both~-the US and GE Armies [Ref. 7 and 8] 


I I 
i Corps 
! 


Dele Gauie ce aaa Corps 


IgG 


H 


H 


MPO nS OE SSAe » 
8 
40 


H 


oS So ees ee 
v7 
i 
e o 


1 
t 
t 


f 


‘f 
iy 


, 


| 


hy 
da 
\/ M 


‘ 
\ a 


f 


Peecane CO . 2 


iE 
Mechanized Infantry Division 


2 
Armored Division 


3 
Mountaineer Division 


4 
Beeoorwe Division 


5 
Imirantry Division 


6 
Air Assault Division 


Division Types 


Pon 


. 


4 
! 


4 
a) 


{ 


| 


vu 


ee 
— 
a 





i 
Mechanized Infantry @hr21eaqe 


lz J 
Armored Brigade 


re 
Mountaineer Brigade 


14 
Airborne Brigade 


ms 
Infantry Brigade 


16 
Combat Aviation Brigade 


7, 
Air Cavalry Combat Brigade 


Ths, 
Signal Brigade 


Figure C.3 Brigade Types 
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xx 





Zale 
Anti Aircraft Defence Regiment 
Corps } 


22 
Anti Aircraft Defence Regiment 
(Divisione 


23 
SVrauyLlom Regiment 


24 
Aviation Regiment 


25 
Combat Aviation Regiment 


HusmrewC.45 Regiment Types I 
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| sao | 

‘ae es 

eens “| Armored Cavalry Regiment 
! 

: | 

ew iy 2 7 

i | a ! Military Intelligence Regiment 
t ! a 

secre aeneat 

| ae 

| ok | 28 

| = | fe diate t ile jy, Regiment 
| : 

a 

pr = 

ee ce 29 

| = ae | Cavalry Regiment Air Attack 
‘ ie aa { 

=a ae 

ee 

fo ee = 30 

=e | Aviation Group 

a | 

Ss 


Figure C.5 Regiment EY pect 
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Figure C.6 


41 
romerr zea infantry Battalion 
("Division™ 


7) 
Airborne Battalion 


43 
Mountaineer Battalion 


44 
Mechanized Infantry Battalion 
( Armored Brigade ) 


45 
Mechanized Infantry Bageta tron 
( Mech. Inf. Brigade ) 


46 
Moterized Imfantry Battalion 
( Division ) 


47 
mri essere lt elintfantry Battalion 


48 ee 
Airborne Battalion (GE) 


49 
Armored Reconnaissance 
Ba tea lLon 


Bawtalion Types I 


1 4 


{] 


il 








i i 


Figure C.7 


oe 
Air Cavalry Squadron 


ay Ab 
Armored Battalion 
(Mech.Inf. Brig. ) 


Dic 
Armored Battalion 
( Armored Brig. ) 


53 
Armored Battalion 
( Airborne Brig. ) 


54 
Attack Helicopter Battalion 


2:5 
Field Ard llery Bateeadene a 


56 
Field Artillery Battat@ien 
CVS GIN sy alee) 


By ae 
Field Artillery Battal ifn 
(Airborne Din is hone) 


58 
Reconnaissance Battalion 


Battaiiion Typecwman 
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Pigwre Cas 


59 
PlcittmArtciiilery Battalion (GE) 
Sebrioade ) 


60 
Missstele Artillery Battalion 


61 


Missile Artillery webattialion 
(GE ) (Corpse) 


62 
mieldetrtillery Battalion 
( Mount. Brigade ) 


63 
NBC Battalion 


64 
Combat Aviation Battalion 


-65 


Military Intelligence Battalion 


66 
Medical Battalion 


67 


Medical Evacuation Battalion 


Bawa lionel yoes Lit 


Log 


Ficire Crag 


68 
Maintenance Battalion 


69 
Maintenance Battalion (GE) 
( Electronic Equipment ) 


70 
Supply Battalion 


7A 
Supply Battalion 


(Special Ordnance ) 


72 
Transportation Battalion 


L3 
Military Police Battalion 


pe! 
Air Defence Artillery Battalivou 


a 
Air Defence Artillery Battalion 
( Airberne. Divisione) 


76 ; 
Electronic Warfare Battalion 


Battalion Types IV 
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EO te ee, a te, 


ra 
rT | 
| 


Fiourewe. 10 


Vea 
Signal Battalion 


78 

SuoaeeCOnstructionme Battalion 
(GE ) 

79 

Suetee “Construction Battalion 
(GE) 

80 


Peldersatz Bataillon GE) 


81 
Engineer Battalion 


So 
Armored Engineer Battalion 


83 
Engineer Battalion 


84 
Engineer Battalion 


85 
Support Battalion 
( Airborne Div.) 


Battalion Types V 


Inoet 


oe Ee 
| | [Uppeims Batcalieom 
on 

eT 

! Aaa, | 87 

| ee Supply And Transportation 
ei 2 : 

SSS Bavaria oul 

= = 88 

ae Pekar ti Nery ebattal ed 
[=| (Mec late.) Dacor 

= > 89 

fe ge Field Artillery Battalion 
| ( AASLT Division ) 


Figwre C.11 Battallion, Types vi 


LG 2 


al 

ee | vet 
foo Military Band 
SS 
[ens vr [Ms 
ee ae 
a Military Police Company 
oes 
FS | 103 
ea || NBC Company 
atl sel 
| )_ a 
| ~~ —_ a 104 
i Cavalry Troop 


105 





—- | 106 
HHQ 

Ew 

Se 


——_ Let 
—_ eae HHQ 
| 1 

See, ol 108 
a HHO 
SosS SiS 

| = ? eo 
! - | HHQ 
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Corps 


Corps 


Corps 


COros 


Preure C.12 Company 
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7 
ale 
| pagel | Military Intelligence Company 


Command 


Maintenance Command 


Signal Command 


Artillery Command 


Types I 





Figure C.13 


0 
HHQ 


Pid 
HHO 


112 
HHQ 


113 
HHQ 


114 
HHQ 


115 
HHO 


eine 
HHQ 


117 
HHQ 


iS 


Corps ADA Command 


Engineer Command 


Medical Command 


Supply Command 


Aviation Brigade 


Division Command 


Mountaineer Brigade 


Airborne Brigade 


HHQ Mechanized Infantry Brigade 


Company Types II 
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Figure ¢€.14 


119 
HHO Armored Brigade 


Ze 
HHQ Air Cavalry Combat Brigade 


12ek 
PReectronic Warfare Company 


NA 
Signal Company 


be 
Fernspaeh-Kompanie (GE) 


~124 


Armored Engineer Company 


Zc 
Pieameers COMmpany 
CMewnmt. Brig.) 


127, 
NBC Company 
(Mount. Brig. ) 


Les 
Supply & Support Company 
(Mount. Brig.) 


Company Types III 
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Figure G.15 


129 
Tragtier Kompanie (GE) 
(MOMs emer sieo ee) 


130 
Antitank Company 
(Mounties rie 


aeeyal ; 
Mortar Company 
(Airborne Brig. ) 


132 
Engineer Company 
(Airborne Brig. ) 


3 
Medical Company 
(Airborne Brig. ) 


134 
Supply & Support Company 
(Airborne Brigade) 


- 


£35 
Cava bie Lioop 
(Airborne Brig. ) 


136 
Aviation Liaison 


Ley 
AViations Liaison 


Company Types IV 
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138 
a CdCl Agr DO at 


139 
Matmneenanece  COMpamny 


140 
Supply Company 


141 
Antitank Company 


142 
Engineer Cempany 


144 
HHQ Infantry Brigade 


ere C.hoe Company Types V 
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APPENDIX D 


SOURCE CODE OF CAESAR 


1. Source Code Program TACMIX 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


KEY 


program TACMIX 


This program provides the graphical interface for 


the user to enter, view or modify the structure 


of major units. 


JUNE 1987 


HE HE HE HE HE FE HE HE HE FE FE HE FE FE DE HE HE FE Ee FE FE FE FE FE FE FE FE HE DE DE FE FE DE FE FE FE FE OE EE EE HE HE HE OH 


* * 


Variable Directory 


+ 


DE HE HE HE FE HE DE DE HE PE FE 2E FE FE FE HE DE FE FE FE FE DE DE FE DE FE FE HE FE FE FE FE FE FE FE FE HE FE FE FE HE HE HE HE HE HE OH 


% 
* 
% 
%* * 
% 
% 
% 
* 
% + 
* 
* 
%* 
+ + 
* 
* * 
* 
* * 
* 
* 
* 
%* + 
* 
%* * 
* 
% 
% 


Slee ae Q bo > 
MOF CE™~ A HR&S to A 
HO 86 OA 


LE 


auxiliary variable 
auxiliary variable 
counting variable 
auxiliary variable 

number of units 

error flag 

auxiliary variable 

left margin 
major unit code number 
major unit code number 
auxiliary variable 

number of units of a type 
string variable for filename 
pointer for graphic routine 
mathematical constant 
unit code number 
auxiliary variable 

type of major unit 

unit code number 
auxiliary variable 

unit description 
additional information 
auxiliary variable 
auxiliary variable 
auxiliary variable 

zoom factor for graph 


* 
% 
* 
% 
% + 
% + 
% 
* 
HH * 
% + 
* 
* * 
* 
* 
% 
* 
%* 
% 
* 
* 
% + 
* 
* 
* * 
% 


% * 


dE HE HE HE HE HE HE DE HE FE DE HE OE EE EE DE DE OE EOE EE OE OE EE 0 DE EE OE OE OE OE OE HE OE EOE HE OE OE OE EO 


OFF:DIM U(40),N(40) 
PI=3.141593 
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Swear tscreen: 
CLS:SCREEN O 
LOCATE 2,20: PRINT " * # % 4 4 4 6 3 5€ 3 36 36 Ht 56 HE HE DE HE EE HE He de 
LOCATE 3,20:PRINT"#*#* Program TACMIX festive 


BOCATE 4,20:PRINT"*** Options: HN 
LOCATE 5,20: PRINT" # 3 3 3 3-H 36 5 56 96 56 36 3 HE HE HE HE OE HE HE 0 HE EIT 
LOCATE 7,15:PRINT"- Create New Organisation ....... (ie 
EOCATE 9,15:PRINT"- View Existing Organisation ....(2)" 


BOCATE 11,15 
PRINT"- Modify Existing Organisation ..(3)" 
MOCATE 25,15 
Seer — PWerminate Program ..........cees (9)" 
LOCATE 24,20:INPUT"Enter Number of Choice : ",E 
IF E<x1 OR E>9 OR(E>3 AND E<9) THEN startscreen 
Los oCREEN 2 
ON E GOTO neworg,vieworg,modify,terminate,terminate, _ 
Seerminate, Cerminate,terminate,terminate 
GOTO startscreen 
merminate: 
SCREEN 0:CLS: END 
REM dE FE FE HE 9G 3G HE DE DE HE HE FE DE DE FE FE FE DE 3G 36 FE DE 2G FE FE DE DE 36 FE DE 0G 3G FE FE EE 36 36 HE OE OE OE OE EH OH OH OH 
REM Branch Create a new Organization 
REM 
neworg: 
Pi=0:GOSUB pickunit:CLS:LL=60:X=1:Y=1 
A=270:B=5:GOSUB tacsign 
IF VAL(MUS )=0 THEN Q=1 ELSE IF VAL(MU$)<7_ 
THEN Q=11 ELSE Q=23 
eit 
FOR B=LL TO 161 STEP 60 
FOR A=0 TO 600 STEP 102 
GOSUB tacsign:Q=Q+1:IF Q>144 THEN F=1:_ 
GGGo 3 EBSE T2 
e.: 
NEXT A 

NEAT B 
18: 
BOCATE 23,1 
PRINT" 0 
MOCGCATE 23,1 
INPUT"enter unit code number (ENTER for next frame) 


= US 

IF U$S="" THEN 14 ELSE IF VAL(U$)<0O OR VAL(U$)>144 THEN 
3 

U(X )=VAL(U$ ) 

LOCATE 23,1 : 
PRINT" 
DOmALTE 23,1 

INPUT"enter number of these units (default=1) : ",U$ 
LOCATE 23,1 


PRINT” " 
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U=VAL(U$):IF U>1 THEN N(X)=U ELSE N(X)-=1 

INGR X:; LOCATE -2an 

INPUT"another unit from this frame (y/n) ";U$ 
IF US="y" OR US="Y" THEN 11 

14: 

IF Q<145 THEN CLS: LL=5:GOTO 11 

DECR X:GOSUB sort 

OPEN "o",1,NS$ 

WRITE#1 , VAL(MU$ ),X 

FOR Y=1 TO X:WRITE#1,U(Y),N(Y):NEXT Y 


CLOSE 41 
GOTO startscreen 
REM 


HE dE EE DE HE EE DE HE HH HHH MH MMH MMM HH MH HH MH HH MHHRHMHHHMHHHHMM HHH HM 


REM Branch View Existing Organisation 
REM 
REM 
vieworg: 
Pi=0:ZF=1/6:GOSUB pickunit:CLS 
FOR Y=1 TO 40:U(Y)=0O:N(Y)=0:NEXT Y 
LOCATE 23,1 
PRINT" " 
OPEN "i",1,N$ 
INPUT#1 ,MU,C 
FOR Y=1 TO C: INPUT#1,U(Y),N(Y):NEXT Y 
CLOSE #1 
A=270:B=5:Q=MU:W=1:P1i=1:GOSUB tacsign:LL=65 
pe 
FOR B=LL TO 159 STEP 60 

FOR A=0 TO 600 STEP 125 

Q=U(W): ES$=RIGHTS(STRS(N(W)),1) 
GOSUB tacsign:INCR W:IF W>C THEN 16 

NEXT A 
NEXT B 
Le: 
LOCATE 23,33:PRINT "Press any Key": E$=INPUT$(1 ) 
CLS: IF U(W)>0 THEN LL=5:GOTO 15 ELSE GOTO startscreen 
REM ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee: 
REM Branch Modify an Organization 
REM 
modify: 
P1i=0:ZF=1/6:GOSUB pickunit:CLS 
FOR Y=1 TO 40:U(Y)=0:N(Y)=0O:NEXT Y 
BOCATE, 231 
PRINT" : 
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ES : 

CES OPEN "iv',1,NS 

INPUT#1,MU,C 

FOR Y=1 TO C: INPUT#1,U(Y),N(Y):NEXT Y 

CLOSE #1 

A=270:B=5: E$="1":Q=MU:W=1:P1=1:GOSUB tacsign:LL=65 


19: 
FOR B=LL TO 159 STEP 60 
FOR A=0 TO 600 STEP 125 
Q=U(W): ES=RIGHTS$(STRS$(N(W)),1):GOSUB tacsign 
INCR W: IF WoC THEN 110 
NEXT A 
NEXT B 


B10: 

LOCATE 23 ,33 : 

PRINT “Any Modifications ?":E$=INPUTS(1) 
IF E$S="y" OR ES="Y" THEN 111 ELSE 119 
POCATE 23,5 


ele: 

PRINT "Which Modification ? (0=erase,1i=change number"; 
PRINT " of units,2=add a unit)":ES$=INPUTS(1) 

LOCATE 23,1 


Poe i=l TO 7O:PRINT “" "s:NEXT Y: PRINT 

112: 

LOCATE 23,33:PRINT "Which Unit Number ";:INPUT U 
E=VAL(ES ) 


IF E=¥0 THEN 113 ELSE IF E=1 THEN 116_ 
BPESE IY Bez THENSS ELSE @etZ 


H13: 
FOR Y=1 TO C:IF U(Y)=U THEN 114 ELSE NEXT Y:GOTO 18 


aia; 
m Y<C THEN _ 
FOR X=Y TO C-1:U(X)=U(X+1):N(X)=N(X+1):NEXT X:_ 
DECR C:GOTO 115 | 
U(C )=O0:N(C )=0:C=C-1 


m15: 

MILL NS>OPEN "o",1,NS$ 

WRITE#1 ,MU,C 

FOR Y=1 TO C:WRITE#1,U(Y),N(Y):NEXT Y 
CLOSE 1:GOTO 18 


a 


dalboss 

LOCATE 23,5 

FOR Y=1 TO 70:PRINT " "3;:NEXT Y:PRINT 
FOR Y=1 TO C 

IF U(Y)=U THEN 117 ELSE NEXT Y 

GOTO 18 


Lag? : 

LOCATE 23,33 

INPUT"Enter new number of units ",N(Y) 

GOTO 115 

118: 

LOGATE 23,5 

FOR Y=1 TO 70:PRINT " "s:sNEXT Y:PRINT 

LOCATE 23,33: INPUT"Enter number of new units ",N 
C=C+1:U(C)=U:N(C)=N:X=C:GOSUB sort:GOTO 115 


119: 

CLS:IF U(W)>0 THEN LL=5:GOTO 19 ELSE GOTO startscreen 
GOTO startscreen 

SCREEN 0:CLS:END 


REM HHKHHKHHKHRHRKHKHHHRKHKHRKHRKHHKHHRKHHHKHHHRHKHRKRHRHRKHKRHRHRHKHHRHHKHRHHHM HH 
REM 
REM Pick Major Unit 
REM 
pickunit: 
REM | 
Q=0:ST=102:ZF=1/5 | 
FOR B=5 TO 161 STEP 60 

FOR A=0 TO 600 STEP ST 

GOSUB tacsign 


INCR Q 
IF Q>20 THEN 17 
NEXT A 
NEXT B 
Pas 
LOCATE 24,1 
INPUT"enter major unit code number : ",MU$ 


Q=VAL(MUS ) 

IF Q=0 THEN NS$="corps":RETURN 

IF Q<=6 THEN NS$="div"+MUS : RETURN 
IF Q<=19 THEN N$="brig"+MU$: RETURN 
PRINT "input error":GOTO 17 

RETURN 

REM 


REM PE dE FE DE DE DE DE HE DE HE HE OE DE HE 1 EE DE DE DE 9G DE HE OE DE EE OE EE FE DE 9 9E 96 9 EE EE OE OE EE EE HO OH OE 


LZ 


REM Subroutine Sort of numerical Variables 


REM input arrays se) n(x) 
REM input parameter : x 

REM 

sort: 

REM 


FOR A=1 TO X 
POR’B=1 TO X-1 
IF U(B)=U(B+1) AND U(B)<1000 THEN 
FOR C=B TO X-1:U(C)=U(C+1):N(C)=N(C+1):NEXT C:_ 
U(X )=9999:DECR X 
IF U(B)>U(B+1) THEN H=U(B+1):U(B+1)=U(B):_ 
U(B )=H:H=N(B+1):N(B+1)=N(B):N(B)=H 
NEXT B 
NEXT A 
RETURN 


REM DE HE HE FE HE HE FE DE DE FE TE DE FE DE HE IE 1E DE FE HE DE DE HE HE DE DE HE HE DEE HE FE IE HE FE HE HE FE HE HE HE HE OE EE EE 


ie 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


HH* 


nec 


subroutine to draw one Tactical sien 


Cc. inpuE. 


tacsign: 


REM 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


zoom factor 


horizl. 
vertcl. 


Q>144 THEN RETURN 
Q>121 THEN companies2 
Q>100 THEN companiesl 
Q>40 THEN battalions 
Q>20 THEN regiments 
Q>10 THEN brigades 


Q=0 


OOO OOH 0H 0 0 
ll 
OWNCOCUOr WHE 


Q=10 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


brigades: 


IF 
Ids 
IF 
IF 
is 
ie 
IF 
IF 
ie 
IF 


Q=11 
Q=12 
Q=13 
Q=14 
Q=15 
Q=16 
Q=17 
Q=18 
Q=19 
Q=20 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


regiments: 


IF 
in 
IF 
Pr 
IF 
IF 
IF 
IF 
IF 
Li 
IF 
IF 


Q=21 
Q=22 
Q=23 
Q=24 
Q=25 
Q=26 
Q=27 
Q=28 
Q=29 
Q=30 
Q=31 
Q=32 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
Q=Q+1 
Q=Q+1 
Q=Q+1 


0: GOTO 
1:GOTO 
2: GOTO 
3:GOTO 
4:GOTO 
5: GOTO 
6:GOTO 


RETURN 


start coord. 
start coord. 
value for constant 

value for unit type 


box 
box 
box 
box 
box 
box 
box 


O < ZF <= 
O < A < 550 
GB < e560 
41593 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
Q=Q+1 
GOSUB 


RETURN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
Q=Q+1 
Q=Q+1 


11:GOTO 
12:GOTO 
13:GOTO 
14: GOTO 
15:GOTO 
16:GOTO 
17:GOTO 


19:GOTO 


21:GOTO 
22:GOTO 
23:GOTO 
24:GOTO 
25:GOTO 
26:GOTO 
27:GOTO 
28:GOTO 
29:GOTO 
30:GOTO 


box 
box 
box 
box 
box 
box 
box 


box 


box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
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HHH HH HK 


il 


144 


Q=33 
Q=34 
Q=35 
Q=36 
Q=37 
Q=38 
Q=39 
Q=40 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


battalions: 


Q=41 
Q=42 
Q=43 
Q=44 
Q=45 
Q=46 
Q=47 
Q=48 
Q=49 
Q=50 
Q=51 
Q=52 
Q=53 
Q=54 
Q=55 
Q=56 
Q=57 
Q=58 
Q=59 
Q=60 
Q=61 
Q=62 
Q=63 
Q=64 
Q=65 
Q=66 
Q=67 
Q=68 
Q=69 
Q=70 
Q=71 
Q=72 
Q=73 
Q=74 
Q=75 
Q=76 
Q=77 
Q=78 
Q=79 
Q=80 
Q=81 


Q=82 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 


RETURN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


box 
box 
box 
box 
box 
box 
box 
pox 
box 
box 
box 
pox 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
Dox 
box 
box 
box 
box 
box 
box 
box 
box 
pox | 
pox 
box 
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Le 
IF 
ie 
ae 
IF 
IF 
IF 
15 
Iie 
IF 
IF 
iE 
i) 
Te 
IF 
ce 
IF 
IF 


Q=83 
Q=84 
Q=85 
Q=86 
Q=87 
Q=88 
Q=89 
Q=90 
Q=91 
Q=92 
Q=93 
Q=94 
Q=95 
Q=96 
Q=97 
Q=98 
Q=99 
Q=100 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


companies1: 


IF 
IF 
IF 
IF 
IF 
JE I 
ie 
IF 
IF 
te 


re 


Te 
Pr 
IF 
IF 
IF 
IF 
JE 
rr 
IF 
IF 


Q=101 
Q=102 
Q=103 
Q=104 
Q=105 
Q=106 
Q=107 
Q=108 
Q=109 
Q=110 
Q=111 
Q=112 
Q=113 
Q=114 
Q=115 
Q=116 
Q=117 
Q=118 
Q=119 
Q=120 
Q=121 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


companies2: 


IF 
IF 
IF 
IL) 
IF 
rE 
ae 
IF 
IF 
IF 


Q=122 
Q=123 
Q=124 
Q=125 
Q=126 
Q=127 
Q=128 
Q=129 
Q=130 
Q=131 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 
Q=Q+1 


83 
84 
85 
86 
87 
88 
89 


:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 


box 
box 
box 
box 
box 
box 
box 


RETURN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


101 
103 


105 
106 
107 


109 
110 
111 
1t2 


114 
115 
116 


118 
119 


121 
122 
124 
125 


126 
Lae 


130 
131 


:GOTO 
102: 


GOTO 


:GOTO 
104: 


GOTO 


:GOTO 
:GOTO 
:GOTO 
108: 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
1tse 


GOTO 


GOTO 


:GOTO 
:GOTO 
:GOTO 
Ti: 


GOTO 


:GOTO 
:GOTO 
120: 


GOTO 


: GOTO 


>GOTO 
123: 


GOTO 


:GOTO 
:GOTO 
:GOTO 
:GOTO 
128: 
129: 
:GOTO 
:GOTO 


GOTO 
GOTO 
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box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 


box 
box 
box 
box 
box 
box 
box 
box 
box 
box 


Q=132 
Q=133 
Q=134 
Q=135 
Q=136 
Q=137 
Q=138 
Q=139 
Q=140 
Q=141 
Q=142 
Q=143 
Q=144 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


ES AE 
133; 
134: 
35: 
130 : 
1's: 
Lose 
139: 
140: 
141: 
142; 
143: 
144: 


box 
box 
box 
box 
box 
box 
box 
box 
pox 
box 
box 
box 
box 


RETURN 

S$segment 

REM HHHHHMHHHHMHHHHHHHHHMHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH 
box: 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 

IF U=i THEN LINE(155*ZF+A,1*ZF+B )-(175*ZF+A,8*ZF+B): 
LINE(175*ZF+A,1*ZF+B)-(155*ZF+A,8*ZF+B ): 
LINE(195*ZF+A,1*ZF+B )-(215*ZF+A,8*ZF+B): 
LINE( 215*ZF+A,1*ZF+B)-(195*ZF+A,8*ZF+B ) 
LINE(175*ZF+A ,1*ZF+B )-(195*ZF+A,8*ZF+B ): 
LINE(195*ZF+A,1*ZF+B)-(175*ZF+A,8*ZF+B ) 
LINE(165*ZF+A,1*ZF+B)-(165*ZF+A,7*ZF+B):_ 
LINE(185*ZF+A,1*ZF+B )-(185*ZF+A,7*ZF+B): _ 
LINE (205*ZF+A,1*ZF+B )-(205*ZF+A,7*ZF+B ) 
LINE(175*ZF+A,1*ZF+B )-(175*ZF+A,7*ZF+B): _ 
LINE (195*ZF+A,1*ZF+B )-(195*ZF+A,7*ZF+B ) 
IF U=5 THEN LINE(185*ZF+A,1*ZF+B )-(185*ZF+A ,7*ZF+B ) 
IF Pi=1 THEN LOCATE B/8+17*ZF ,A/8+54*ZF 


IF U=2 THEN 


IF U=3 THEN 


IF U=4 THEN 


IF ES="1" THEN 120 ELSE PRINT ES 

120: 

LOCATE B/8+24*ZF,A/8+18*ZF:PRINT Q:RETURN 
REM 


HMHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HHH 
u4: 

LINE(10*ZF+A ,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 

REM 


ve + 9 HE HE 9E HE HH OE HO OH OE 9 0 OE 9 OE OE OH OE OH OE 9 9 HO 9 OH OE OE OE 0 OE OH OE OE 0 OH OE HH HH OH OH OH OH 


Lee 


0: 

REM corps #0 

U=0:U1$="CORPS" : U2$="" 
LINE(130*ZF+A,ZF+B )-(150*ZF+A,7*ZFB ) 
LINE(150*ZF+A,ZF+B )-(130*ZF+A,7*ZF+B ) 
LINE(175*ZF+A, ZF+B )-(195*ZF+A,7*ZF+B ) 
LINE(195*ZF+A,ZF+B)-(175*ZF+A,7*ZF+B ) 
LINE( 220*ZF+A,ZF+B)-(240*ZF+A,7*ZF+B ) 
LINE( 220*ZF+A,7*ZF+B )-(240*ZF+A , ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
RETURN 


i 

REM mechanized infantery division #1 
U=1:U1$="MECHANIZED INFANTRY DIVISION": U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A ,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

GOSUB u4 

RETURN 


Zs 

REM armored division #2 

U=1:U1$="ARMORED DIVISION" :U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*P1I/180,270*PI/180 
CIRCLE( 280*ZF+A ,65*ZF+B ) ,48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A ,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A ,85 *ZF+B ) 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 

RETURN 


3 

REM mountaineer division #3 

Ui$S="MOUNTAINEER DIVISION": U2$="" 

GOSUB u4 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(155*ZF+A,120*ZF+B )-(185*ZF+A ,100*ZF+B ) 
LINE(215*ZF+A ,120*ZF+B )-(185*ZF+A,100*ZF+B ) 
PAINT(185*ZF+A,114*ZF+B ) 

RETURN 


4; 

REM airborne division #4 

U=1:U1$="AIRBORNE DIVISION": U2$="" 

CIRCLE(130*ZF+A ,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A ,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A ,115*ZF+B ) 

GOSUB u4 

RETURN 
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OF: 

REM infantry division #5 
U=1:U01$="INFANTRY DIVISION" :U2$="" 
GOSUB u4 

RETURN 


6: 

REM air assault division #6 

U=1:U1$="AIR ASSAULT DIVISION" :U2$="" 
LINE(145*ZF+A,20*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE( 225*ZF+A,20*ZF+B )-(185*ZF+A,40* ZF-+B ) 
LINE(185*ZF+A,40*ZF+B )-(185*ZF+A ,100* ZF+B ) 
LINE(145*ZF+A,100*ZF+B )-(225*ZF+A,100*ZF+B ) 
RETURN 


1 ies 

REM mechanized infantery brigade #11 
U=2:U1$="MECHANIZED INFANTRY BRIGADE": U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*P1I/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

GOSUB u4 

RETURN 


Me: 

REM armored brigade #12 

U=2:U01$S="ARMORED: BRIGADE" :U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A ,45*ZF-+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

RETURN 


da": 

REM mountaineer brigade #13 
U=2:0U1$S$="MOUNTAINEER BRIGADE":U2$="" 

GOSUB u4 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE(212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN ; 


14; 

REM airborne brigade #14 

U=2:U1S$="AIRBORNE BRIGADE": U2$="" 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A ,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF4+A,115*ZF+B ) 

GOSUB u4 

RETURN 


i/o 


i. 

REM infantry brigade #15 
U=2:U1$="INFANTRY BRIGADE": U2$="" 
GOSUB u4 

RETURN 


Gy: 

REM combat aviation brigade #16 

U=2:U1$="COMBAT AVIATION BRIGADE":U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A ,65*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B ),1:PAINT(270*ZF+A,65*ZF+B),1 
RETURN 


i 

REM air cav cbt brig #17 

U=2:U1$="AIR CAVALRY COMBAT BRIGADE": U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE( 270*ZF+A,65*ZF+B ),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A ,52*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B ),1:PAINT(270*ZF+A,65*ZF+B),1 
RETURN 


EOF. 

REM signal brigade #19 

U=2:U1$="SIGNAL BRIGADE" :U2$="" 

LINE (10*ZF+A,10*ZF+B )-(185*ZF+A,80*ZF+B ) 
LINE(185*ZF+A,50*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(185*ZF+A, SO*ZF+B )- (185*ZF+A,50*ZF+B ) 
RETURN 
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aw: 

REM anti aircraft regiment (corps) #21 

Ui1S="ANTI AIRCRAFT DEFENCE REGIMENT": U2$="" 
U=3°CIRCLE 
(207*ZF+A,50*ZF+B),140*ZF,1,138*P1I/180,223*PI/180 
CERCLE 
(186*ZF+A,175*ZF+B),220*ZF,1,39*P1I/180,142*P1I/180 
CIRCLE (140*ZF+A,105*ZF+B),14*ZF,1,90*PI/180,270*PI/180 
CIRCLE (220*ZF+A,105*ZF+B),14*ZF,1,270*PI/180,90*PI/180 
LINE(140*ZF+A , 98*ZF+B )-(220*ZF+A,98*ZF+B ) 

LINE (140*ZF+A,112*ZF+B )-—(220*ZF+A,112*ZF+B ) 

LINE (76*ZF+A,45*ZF+B )-(206*ZF+A,45*ZF+B ) 

LINE (156*ZF+A,65*ZF+B )-—(286*ZF+A ,65*ZF+B ) 

LINE (206*ZF+A ,45*ZF+B )-(156*ZF+A,65*ZF+B ) 

LINE (182*ZF+A,101*ZF+B )-(168*ZF+A,104*ZF+B ) 

LINE (182*ZF+A,101*ZF+B )-(196*ZF+A,104*ZF+B ) 

LINE (182*ZF+A,106*ZF+B )-(168*ZF+A ,109*ZF+B ) 

LINE (182*ZF+A,106*ZF+B )-(196*ZF+A,109*ZF+B ) 

’ LINE(130*ZF+A,15*ZF+B)-(150*ZF+A,25*ZF+B ) 
LINE(150*ZF+A,15*ZF+B )-(130*ZF+A,25*ZF+B ) 
LINE(175*ZF+A,15*ZF+B)-(195*ZF+A,25*ZF+B ) 
LINE(195*ZF+A,15*ZF+B)-(175*ZF+A,25*ZF+B ) 

LINE( 220*ZF+A,15*ZF+B)-(240*ZF+A,25*ZF+B ) 

LINE( 220*ZF+A,25*ZF+B )-(240*ZF+A,15*ZF+B ) 

RETURN 


aa 

REM anti aircraft regiment (divisional) #22 
U1$S$="ANTI AIRCRAFT DEFENCE REGIMENT" :U2$="" 
Uae C IRCLE 
(207*ZF+A,50*ZF+B),140*ZF,1,137*PI/180,223*PI/180 
CIRCLE 
(186*ZF+A,175*ZF+B),220*ZF,1,39*PI/180,142*PI/180 
CIRCLE (140*ZF+A,105*ZF+B),14*ZF,1,90*PI/180,270*PI/180 
GCBRC LE (220*ZF+A,105*ZF+B),14*ZF,1,270*P1I/180,90*PI/180 
LINE(140*ZF+A,98*ZF+B )-(220*ZF+A ,98*ZF+B ) 

LINE (140*ZF+A ,112*ZF+B )-(220*ZF+A ,112*ZF+B ) 

LINE (76*ZF+A,45*ZF+B )—-(206*ZF+A,45*ZF+B ) 

LINE (156*ZF+A,65*ZF+B )-(286*ZF+A,65*ZF+B ) 

LINE (206*ZF+A,45*ZF+B )-(156*ZF+A ,65*ZF+B ) 
CIRCLE(182*ZF+A,105*ZF+B),10*ZF,3 

PAINT(186*ZF+A ,105*ZF+B),1,3 
LINE(150*ZF+A,15*ZF+B )-(170*ZF+A,25*ZFB ) 
LINE(170*ZF+A,15*ZF+B )-(150*ZF+A,25*ZF+B ) 

LINE( 200*ZF+A ,15*ZF+B )-(220*ZF+A,25*ZF+B) 

LINE( 200*ZF+A,25*ZF+B )-(220*ZF+A,15*ZF+B ) 

RETURN 


Let 


ao: 

REM aviation regiment # 23 

U=3:U1$="AVIATION REGIMENT": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE( 270*ZF+A,100*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1 

PAINT(270*ZF+A,100*ZF+B),1 
CIRCLE(185*ZF+A,50*ZF+B),70*ZF 

LINE (135*ZF+A,31*ZF+B )-(237*ZF+A,69*ZF+B ) 
LINE(136*ZF+A ,69*ZF+B )-(235*ZF+A,31*ZF+B ) 

LINE (185*ZF+A,22*ZF+B )-(185*ZF+A,78*ZF+B ) 

LINE (115*ZF+A,50*ZF+B )-(255*ZF+A,50*ZF+B ) 

LINE (30*ZF+A,10*ZF+B )-(30*ZF+A,120*ZF+B ) 

RETURN 


24; 

REM aviation regiment #24 

U=3:U1$="AVIATION REGIMENT": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1:PAINT(270*ZF+A,100*ZF+B),1 
CIRCLE(180*ZF+A,50*ZF+B),70*ZF 

LINE (130*ZF+A,31*ZF+B )-(232*ZF+A ,69*ZF+B ) 
LINE(131*ZF+A,69*ZF+B )-(230*ZF+A,31*ZF+B ) 

LINE (180*ZF+A,22*ZF+B )-(180*ZF+A,78*ZF+B ) 

LINE (110*ZF+A,50*ZF+B )-(250*ZF+A,50*ZF+B ) 

RETURN 


Zee 

REM combat aviation regiment #25 

U=3:U1$="COMBAT AVIATION REGIMENT": U2$="" 
CIRCLE(100*ZF+A ,100*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87* ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(180*ZF+A,10*ZF+B ) 

LINE( 360*ZF+A,120*ZF+B )-(180*ZF+A,10*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1:PAINT(270*ZF+A,100*ZF+B),1 
LINE(145*ZF+A ,60*ZF+B )-(185*ZF+A ,40*ZF+B ) 
LINE(185*ZF+A ,40*ZF+B )-(225*ZF+A,60*ZF+B ) 
LINE(145*ZF+A,80*ZF+B )-(185*ZF+A,60* ZF+B ) 
LINE(185*ZF+A,60*ZF+B )-(225*ZF+A,80*ZF+B ) 

RETURN 
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216°: 

REM armored .cavalry regiment #26 

U=3:0U1$="ARMORED CAVALRY REGIMENT":U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B ),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-( 280*ZF+A ,85*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 


es as 

REM military intelligence regiment #27 
U=#3:U1$S$="MILITARY INTELLIGENCE REGIMENT": U2$="" 
LINE( 220*ZF+A ,30*ZF+B )-( 260*ZF+A,30*ZF+B ) 
LINE(220*ZF+A,100*ZF+B )-(260*ZF+A,100*ZF+B ) 
LINE(80*ZF+A ,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A ,30*ZF+B )-(120*ZF+A ,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A ,30*ZF+B ) 
RETURN 


28: 

REM field artillery regiment #28 
U=#3:U1S$="FIELD ARTY REGIMENT" :U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 
LINE(155*ZF+A,16*ZF+B )-(175*ZF+A,22*ZF+B ) 
LINE(175*ZF+A ,16*ZF+B )-(155*ZF+A ,22*ZF+B ) 
LINE(195*ZF+A ,16*ZF+B )-(215*ZF+A,22*ZF+B ) 
LINE( 215*ZF+A,16*ZF+B )-(195*ZF+A,22*ZF+B ) 
RETURN 


29: 

REM cav reg air atk #29 

U=3:U1$="CAVALRY REGIMENT AIR ATTACK":U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A ,65*ZF+B),35*ZF,1,236*PI/180 ,124*PI/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
~LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF-+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B),1 
RETURN 
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ors 

REM aviation gp #30 

U=0:0U1$="AVIATION GROUP": U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*P1I/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B ),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,78*ZE+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B ),1 
LINE(140*ZF+A,25*ZF+B )-(185*ZF+A,55*ZF+B ) 
LINE(185*ZF+A ,55*ZF+B )-(230*ZF+A,25*ZF-B ) 
LINE(185*ZF+A,55*ZF+B )-(185*ZF+A,95*ZF+B ) 
LINE(140*ZF+A,95*ZF+B )-(230*ZF+A,95*ZF+B ) 

RETURN 


41: 

REM motorized infantery (divisional) #41 
U=4:U1$="MOTORIZED INFANRTY BATTALION": U2$="" 
GOSUB u4 . 

RETURN 


a2 

REM airborne battalion #42 

U=4:U1$="AIRBORNE BATTALION": U2$="" 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B ) ,50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A ,115*ZF+B ) 

GOSUB u4 

RETURN 


43: 

REM mountaineer battalion #43 

U=4:U1$="INFANTRY BATTALION": U2$="MOUNTAINEER DIVISION" 
GOSUB u4 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A ,100*ZF+B ) 

LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 


RETURN 

44; 

REM mechanized infantery battalion (armored brig) #44 
U1$="MECHANI ZED INFANTRY BATTALION" : U2$="ARMORED 


BRIGADE": U=4 . 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE( 90*ZF+A ,45*ZF+B )-(280*ZF+A,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

GOSUB u4 

RETURN 
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45; 

REM mechanized infantery battalion (infant. brig) #45 
U=4:U1$="MECHANIZED INFANTRY BATTALION" 
U2$="MECHANIZED INFANTRY BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

GOSUB u4 

LINE(10*ZF+A,10*ZF+B )-(35*ZF+A,120*ZF+B),,BF 

RETURN 


46; 

REM motorized infantery (divisional) #46 
U=4:U1$="MOTORIZED INFANRTY BATTALION": U2$="" 
LINE (165*ZF+A,90*ZF+B )-(205*ZF+A,110*ZF+B ) 
LINE (165*ZF+A,110*ZF+B )-(205*ZF+A,90*ZF+B ) 
GOSUB u4 

RETURN 


47; 

REM motorized infantery (aaslt div) #47 
U=4:U1$="MOTORIZED INFANRTY BATTALION": U2$="" 
GOSUB u4 

LINE(140*ZF+A,35*ZF+B )-(185*ZF+A,65*ZF+B ) 
LINE(185*ZF+A,65*ZF+B )-(230*ZF+A ,35*ZF+B ) 
RETURN 


48: 

REM airborne infantry battalion #48 
U=4:U1$="AIRBORNE INFANTRY BATTALION": U2$="" 
CIRCLE(185*ZF+A,80*ZF+B ),80*ZF 
LINE(50*ZF+A,60*ZF+B )-(280*ZF+A ,115*ZF+B),0,BF 
LINE(10*ZF+A,10*ZF+B )-(127*ZF+A,47*ZF+B ) 
LINE( 360*ZF+A,10*ZF+B )-(233*ZF+A,47*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(127*ZF+A,73*ZF+B ) 
LINE( 360*ZF+A ,120*ZF+B )-(233*ZF+A,73*ZF+B ) 
LINE (122*ZF+A,60*ZF+B )-(185*ZF+A,90*ZF+B ) 
LINE(185*ZF+A,90*ZF+B )-(245*ZF+A,60*ZF+B ) 
LINE(122*ZF+A,60*ZF+B )-(245*ZF+A,60*ZF+B ) 
RETURN 


49: 

REM armored reconnaissance battalion #49 
U=4:U1$="ARMORED CAVALRY BATTALION ":U2$="" 

CIRCLE (90*ZF+A ,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A ,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF-+B ) 

LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 
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oO: 

REM air cavalry squadron #50 

U=4:U01$="AIR CAVALRY SQUADRON" :U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B ),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B),1 
RETURN 


5 iz 

REM armored battalion (mech. inf. brig) #51 
U1$S$="ARMORED BATTALION" 

U2$="MECHANIZED INFANTRY BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE( 90*ZF+A ,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 

RETURN 


ta. 

REM armored battalion (armored brig) #52 
U=4:U1$="ARMORED BATTALION": U2$="ARMORED BRIGADE" 
CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZEF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

LINE (10*ZF+A,10*ZF+B )- (30*ZF+A, 120*ZF4B),,B 

RETURN 


His 

REM armored battalion (airborne brig) #53 
U1$="ARMORED BATTALION": U2$="AIRBORNE BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1, 270*P1/180, 90*P1I/180 
LINE (90*ZF+A,45*ZF+B )- (280*ZF+A, 45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*P1I/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B ),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A ,115*ZF+B )-(192*ZF+A,115*ZF+B ) 

RETURN 
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54: 

REM attack helicopter battalion #54 

Ui$S="ATTACK HELICOPTER BATTALION": U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),60*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A ,65*ZF+B ),60*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,40*ZF+B )-(280*ZF+A ,40*ZF+B ) 
LINE(90*ZF+A ,90*ZF+B )-(280*ZF+A ,90*ZF+B ) 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A ,65*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,78S*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B),1 
RETURN 


35% 

REM field artillery battalion #55 
U=4:U1$="FIELD ARTY BATTALION": U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

RETURN 


56: 

REM field artilley battalion #56 

U=4:U1$="FIELD ARTILLERY BATTALION": U2$={2""" 

CIRCLE 

(185*ZF+A ,65*ZF+B),30*ZF,3:PAINT(185*ZF+A ,65*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 

LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 


oti 

REM field artilley battalion #57 

Usd: U1S="FIELD ARTILLERY BATTALION": U2$="" 

CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A ,120*ZF+B ) 

LINE (10*ZF+A.120*ZF+B )-(360*ZF+A,10*ZF+B ) 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 

RETURN 


58: 

REM reconnaissance battalion #58 
U=4:U1$="RECONNAISSANCE BATTALION ":U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A ,65*ZF+B),1,3 

LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B) 
RETURN | 
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B98: 

REM field arty battalion #59 

U1i$S="FIELD ARTILLERY BATTALION" :U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE( 90*ZF+A ,45*ZF+B )-(280*ZF+A ,45*ZF-+B ) 

LINE( 90*ZF+A ,85*ZF+B )-(280*ZF+A ,85*ZF-+B ) 

CIRCLE (180*ZF+A,65*ZF+B),20*ZF,3 

PAINT (180*ZF+A,65*ZF+B),3,3 

RETURN 


60: 

REM missile artillery battalion #60 
U=4:U1$="MISSILE ARTY BATTALION": U2$="" 
LINE(180*ZF+A,35*ZF+B )-(140*ZF+A,60*ZF+B ) 
LINE(180*ZF+A,35*ZF+B )-(220*ZF+A,60*ZF+B ) 
LINE(180*ZF+A,45*ZF+B )-(140*ZF+A,70*ZF-+B ) 
LINE(180*ZF+A,45*ZF+B )-( 220*ZF+A,70*ZF+B ) 
CIRCLE (180*ZF+A,80*ZF+B),25*ZF,3 
PAINT(180*ZF+A,80*ZF+B),1,3 

RETURN 


6 Ie 

REM pershing battalion #61 

U=4:U1$="MISSILE ARTY BATTALION": U2$="PERSHING" 

CIRCLE(360*ZF+A ,100*ZF+B ), 
220*ZF,1,142.5*PI/180,180*PI/180 

CIRCLE(5*ZF+A,100*ZF+B),220*ZF,1,0,37.5*PI/180 

LINE(140*ZF+A,100*ZF+B )-(140*ZF+A,120*ZF+B ) 

LINE( 225*ZF+A,100*ZF+B )-(225*ZF+A,120*ZF+B ) 

LINE(143*ZF+A,86*ZF+B )-(222*ZF+A,86*ZF+B ) 

LINE(140*ZF+A,106*ZF+B )-(225*ZF+A,106*ZF+B ) 

CIRCLE (180*ZF+A,96*ZF+B ),9*ZF,3 

PAINT(180*ZF+A,96*ZF+B),1,3 

RETURN 


626 

REM mountaineer artillery battalion #62 
U=4:U1$="FIELD ARTILLERY BATTALION" 
U2$="MOUNTAINEER DIVISION" 

CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B° 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A ,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN 
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O3k 

REM nbc battalion (#63 

U=4:U1$S$="NBC BATTALION": U2$="" 

CIRCLE (80*ZF+A ,50*ZF+B),30*ZF,3 
PAINT(80*ZF+A,50*ZF+B),1,3 

CIRCLE (290*ZF+A,50*ZF+B),30*ZF,3 

PAINT( 290*ZF+A ,50*ZF+B),1,3 

LINE (290*ZF+A,100*ZF+B )-(98*ZF+A,40*ZF+B ) 
LINE (80*ZF+A,100*ZF+B )-(270*ZF+A,40*ZF+B ) 
RETURN 


64: 

REM combat aviation bn #64 

U=4:U1S="COMBAT AVIATION BATTALION" :U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE( 270*ZF+A,65*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B),1 
RETURN 


G5: 

REM military intelligence battalion #65 
U=4:U1$="MILITARY INTELLIGENCE BATTALION": U2$="" 
LINE( 220*ZF+A,30*ZF+B )-(260*ZF+A,30*ZF+B ) 
LINE( 220*ZF+A,100*ZF+B )-(260*ZF+A,100*ZF+B ) 
LINE(80*ZF+A,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A,30*ZF+B ) 
RETURN 


66: 

REM medical battalion #66 

U=4:U1$S="MEDICAL BATTALION" :U2$="" 

LINE (10*ZF+A,65*ZF+B )-(360*ZF+A ,65*ZF+B ) 
LINE (185*ZF+A,10*ZF+B )-(185*ZF+A,120*ZF+B ) 
RETURN 


Gy: 

REM medical evacuation battalion #67 
U=4:U1$S$="MEDICAL EVACUATION BATTALION": U2$="" 
CIRCLE(180*ZF+A,65*ZF+B),70*ZF 

LINE (130*ZF+A,46*ZF+B )-(232*ZF+A,84*ZF+B ) 
LINE(131*ZF+A,85*ZF+B )-(230*ZF+A,46*ZF+B ) 
LINE (185*ZF+A,10*ZF+B )-(185*ZF+A ,120*ZF+B ) 
LINE (10*ZF+A,65*ZF+B )-(360*ZF+A,65*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(40*ZF+A,120*ZF+B),,BF 
RETURN 
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68: 

REM maintainance battalion #68 
U=4:U1$="MAINTAINANCE BATTALION" :U2$="" 

CIRCLE (50*ZF+A,65*ZF+B),50*ZF,1,270*PI/180,90*PI/180 
CIRCLE (320*ZF+A,65*ZF+B) ,50*ZF,1,90*PI/180,270*PI/180 
LINE (100*ZF+A ,65*ZF+B )-(270*ZF+A,65*ZF+B ) 

RETURN 


69: 

REM maintainance battalion (electronic mn.) #69 
U=4:U1$="MAINTAINANCE BATTALION" 

U2$="(ELECTRONIC MAINTAINANCE )" 

CIRCLE (50*ZF+A,85*ZF+B),50*ZF,1,270*PI/180,90*PI/180 
CIRCLE (320*ZF+A,85*ZF+B),50*ZF,1,90*PI/180,270*PI/180 
LINE (100*ZF+A,85*ZF+B )-(270*ZF+A,85*ZF+B ) 
LINE(140*ZF+A,30*ZF+B )-(140*ZF+A,50*ZF+B ) 

LINE (230*ZF+A,30*ZF+B )-(230*ZF+A,50*ZF+B ) 

LINE( 230*ZF+A ,30*ZF+B )-(140*ZF+A,40*ZF+B ) 
LINE(230*ZF+A ,50*ZF+B )-(140*ZF+A ,40*ZF+B ) 
PAINT(160*ZF+A ,40*ZF+B ) 

LINE(57*ZF+A,40*ZF+B )—-(310*ZF+A,40*ZF-B ) 

RETURN 


70: 

REM supply battalion #70 

U=4:U1$="SUPPLY BATTALION" :U2$="" 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A ,100*ZF+B ) 
RETURN 


lies 

REM supply battalion for special weapons #71 
U=4:U1$="SUPPLY BATTALION (SW)":U2$="" 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 
LINE(235*ZF+A ,55*ZF+B )-(220*ZF+A,75*ZF+B) 
CIRCLE(150*ZF+A ,60*ZF+B),13*ZF,1,45*PI/180,270*PI/180 
CIRCLE(150*ZF+A,70*ZF+B),13*ZF,1,225*PI/180,90*PI/180 
LINE(185*ZF+A,55*ZF+B )-(200*ZF+A,75*ZF+B ) 
LINE(200*ZF+A ,75*ZF+B )-(210*ZF+A,60*ZF+B ) 

LINE( 210*ZF+A ,60*ZF+B )-(220*ZF+A,,75*ZF+B ) 

RETURN j 


Tae 

REM transportation battalion #72 
U=4:U1$="TRANSPORTATION BATTALION": U2$="" 
CIRCLE(180*ZF+A,65*ZF+B ),70*ZF 

LINE (130*ZF+A,46*ZF+B )-(232*ZF+A,84*ZF+B ) 
LINE(131*ZF+A ,85*ZF+B )-(230*ZF+A,46*ZF+B ) 
LINE (180*ZF+A,37*ZF+B )-(180*ZF+A ,93*ZF+B ) 
LINE (110*ZF+A,65*ZF+B )-(250*ZF+A ,65*ZF+B ) 
RETURN 
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eS : 

REM military police battalion #73 
U=-4:U1$="MILITARY POLICE BATTALION": U2$={2"" 
CIRCLE(255*ZF+A,42*ZF+B),29*ZF,1,270*PI/180,90*PI/180 
LINE( 240*ZF+A ,30*ZF+B )-( 255*ZF+A,30*ZF+B ) 
LINE( 240*ZF+A ,54*ZF+B )-(255*ZF+A ,54*ZF+B ) 
LINE(80*ZF+A ,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A ,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A ,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF-+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A ,30*ZF-+B ) 
RETURN 


743 

REM ada battalion #74 

U=4:U1$="ADA BATTALION": U2S="CORPS ADA COMMAND" 
CIRCLE : 
(186*ZF+A,175*ZF+B),220*ZF,1,39*PI/180,142*PI/180 
RETURN 


‘Tie 

REM ada battalion #75 

U=4:U1S$="ADA BATTALION": U2S$="AIRBORNE DIVISION" 

CIrmecLeE 
(186*ZF+A,175*ZF+B),220*ZF,1,39*PI/180,142*PI/180 
CIRCLE(130*ZF+A ,120*ZF+B ) ,50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A ,120*ZF+B ),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A ,115*ZF+B )-(192*ZF+A ,115*ZF+B ) 

RETURN 


Toe 

REM ew battalion #76 

U=4:U1$="EW BATTALION": U2$="" 

LINE (10*ZF+A,120*ZF+B )-(185*ZF+A,50*ZF-+B ) 
LINE(185*ZF+A ,80*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE(185*ZF+A ,80*ZF+B )-(185*ZF+A,50*ZF+B ) 
RETURN 


(i 

REM signal battalion #77 

U=4:U1$="SIGNAL BATTALION": U2$="" 

LINE (10*ZF+A,10*ZF+B )-(185*ZF+A,80*ZF+B ) 
LINE(185*ZF+A,50*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(185*ZF+A ,80*ZF+B )-(185*ZF+A,50*ZF+B ) 
RETURN 


oa 


Su: 

REM signal construction battalion #78 
U=4:U1$="SIGNAL CONSTRUCTION BATTALION" :U2$="" 
LINE (70*ZF+A,42*ZF+B )-(300*ZF+A,42*ZF+B ) 
LINE( 70*ZF+A ,53*ZF+B )-(300*ZF+A ,53*ZF+B ) 
LINE(120*ZF+A ,65*ZF+B )-(250*ZF+A ,65*ZF+B ) 
LINE(182*ZF+A ,65*ZF+B )-(182*ZF+A,91*ZF+B ) 
RETURN 


a9; 

REM signal construction battalion #79 
CIRCLE(185*ZF+A,B-20*ZF) ,160*ZF,1,230*PI/180,310*PI/180 
U=4:U1$="SIGNAL CONSTRUCTION BATTALION" :U2$="" 

LINE (130*ZF+A,45*ZF+B )-(130*ZF+A,100*ZF+B ) 

LINE (225*ZF+A,45*ZF+B )-(225*ZF+A ,85*ZF+B ) 

LINE (225*ZF+A,85*ZF+B )-(250*ZF+A,65*ZF+B ) 
LINE(250*ZF+A ,65*ZF+B )-(250*ZF+A,100*ZF+B ) 

RETURN 


80: 

REM feld ersatz battailon #80 

U=4:U1$="FELD ERSATZ BATTALION": U2$="" 
LINE(50*ZF+A ,100*ZF+B )-(50*ZF+A,30*ZF+B ) 
LINE(50*ZF+A,30*ZF+B )-(110*ZF+A,30*ZF+B ) 
LINE(50*ZF+A ,65*ZF+B )-(100*ZF+A ,65*ZF-+B ) 
LINE(120*ZF+A,100*ZF+B )-(120*ZF+A,30*ZF+B ) 
LINE(120*ZF+A,30*ZF+B )-(180*ZF+A,30*ZF+B ) 
LINE(120*ZF+A,65*ZF+B )-(170*ZF+A ,65*ZF+B ) 
LINE(120*ZF+A ,100*ZF+B )-(180*ZF+A,100*ZF+B ) 
CIRCLE(225*ZF+A,77*ZF+B),25*ZF,1,0,PI 

LINE( 200*ZF+A,65*ZF+B )-(200*ZF+A ,100*ZF+B ) 
CIRCLE(290*ZF+A,75*ZF+B),20*ZF,1,0,PI*3/2 
CIRCLE(290*ZF+A,91*ZF+B),20*ZF,1,180*PI/180,90*PI/180 
RETURN 


Sales 

REM engineer battalion #81 

U1$="ENGINEER BATTALION": U2$="" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A ,75*ZF+B ) 
RETURN 


ge) 24 


- Bes 

REM armored engineer battalion #82 

UiS="ARMORED ENGINEER BATTALION": U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE( 90*ZF+A,85*ZF+B )-( 280*ZF+A ,85*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 

LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 

LINE (280*ZF4+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 

RETURN 


$3: 

REM engineer battalion #83 
U=4:U1$="ENGINEERING FERRY BATTALION": U2$="" 
CIRCLE(57*ZF+A,50*ZF+B),32*ZF,1,0,PI 
CIRCLE(121*ZF+A ,50*ZF+B),32*ZF,1,PI,0 
CIRCLE(185*ZF+A,50*ZF+B),32*ZF,1,0,PI 
CIRCLE( 249*ZF+A,50*ZF+B),32*ZF,1,PI,0 
CIRCLE(313*ZF+A,50*ZF+B),32*ZF,1,0,PI 

LINE (80*ZF+A,80*ZF+B )-(290*ZF+A,80*ZF+B ) 
LINE (80*ZF+A,80*ZF+B )-(80*ZF+A,99*ZF+B ) 
LINE (180*ZF+A,80*ZF+B )-(180*ZF+A,99*ZF+B ) 
LINE (290*ZF+A,80*ZF+B )-(290*ZF+A,99*ZF+B ) 
RETURN 


84: 

REM engineer battalion (bridge layers) #84 
U=4:U1$="ENGINEER BATTALION": U2$="BRIDGE LAYERS" 
LINE (90*ZF+A,80*ZF+B )-(280*ZF+A,80*ZF+B ) 
LINE (90*ZF+A,80*ZF+B )-(90*ZF+A,99*ZF+B ) 
LINE (185*ZF+A,80*ZF+B )-(185*ZF+A,99*ZF+B ) 
LINE (280*ZF+A,80*ZF+B )-(280*ZF+A,99*ZF+B ) 
LINE (110*ZF+A,55*ZF+B )-(260*ZF+A,55*ZF+B ) 
LINE (110*ZF+A,40*ZF+B )-(260*ZF+A ,40*ZF+B ) 
LINE (90*ZF+A,65*ZF+B )-(110*ZF+A,55*ZF+B ) 
LINE (260*ZF+A,40*ZF+B )-(280*ZF+A,30*ZF+B ) 
LINE (90*ZF+A,30*ZF+B )-(110*ZF+A,40*ZF+B ) 
LINE (260*ZF+A,55*ZF+B )-(280*ZF+A,65*ZF+B ) 
RETURN 


1.93 


$5" 

REM support battalion #85 

U=4:0U1$="SUPPORT BATTALION": U2$="AIRBORNE DIVISION" 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*P1I/180 
LINE(178*ZF+A,115*ZF+B)-(192*ZF+A,115*ZF+B ) 
CIRCLE(150*ZF+A ,60*ZF+B),13*ZF,1,45*PI/i80,270*PI/180 
CIRCLE(150*ZF+A,70*ZF+B),13*ZF,1,225*PI/180,90*PI/180 
CIRCLE(180*ZF+A,70*ZF+B),13*ZF,1,225*PI/180,135*PI/180 
LINE(172*ZF+A ,66*ZF+B )-(172*ZF+A,85*ZF+B ) 
CIRCLE(213*ZF+A,70*ZF+B ),13*ZF,1,180*PI/180,340*PI/180 
LINE( 200*ZF+A ,55*ZF+B )-(200*ZF+A ,70*ZF+B ) 
LINE(192*ZF+A ,63*ZF+B )-(210*ZF+A ,63*ZF+B ) 

RETURN 


86: 

REM support battalion #86. 

U=4:U1$="SUPPORT BATTALION": U2$="" . 
CIRCLE(150*ZF+A,60*ZF+B),13*ZF,1,45*PI/180,270*PI/180 
CIRCLE(150*ZF+A,70*ZF+B),13*ZF,1,225*PI/180,90*PI/180 
CIRCLE(180*ZF+A,70*ZF+B),13*ZF,1,225*PI/180,135*PI/180 
LINE(172*ZF+A ,66*ZF+B )-(172*ZF+A ,85*ZF+B ) 

CIRCLE( 213*ZF+A, 70*ZF+B),13*ZF,1,180*P1I/180,340*PI/180 
LINE( 200*ZF+A ,55*ZF+B )-( 200*ZF+A,70*ZF+B ) 
LINE(192*ZF+A ,63*ZF+B )-(210*ZF+A ,63*ZF+B ) 

RETURN 


Sy. 

REM supply and transportation battalion #87 | 
U=4:U1$="SUPPLY AND TRANSPORTATION BATTALION": U2$="" 
CIRCLE(180*ZF+A ,65*ZF+B),70*ZF 

LINE (1830*ZF+A,46*ZF+B )-(232*ZF+A ,84*ZF+B ) 
LINE(131*ZF+A,85*ZF+B )-(230*ZF+A ,46*ZF+B ) 

LINE (180*ZF+A,37*ZF+B )-(180*ZF+A ,93*ZF+B ) 

LINE (110*ZF+A,65*ZF+B )-(250*ZF+A ,65*ZF+B ) 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 

RETURN 


88; 

REM field arty battalion (mech division) #88 
U1$="FIELD ARTILLERY BATTALION": U2$="MECH. DIVISION" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B ) 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A ,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A ,45*ZF+B )-(280*ZF+A ,45*ZF+B ) 
LINE(90*ZF+A ,85*ZF+B )-(280*ZF+A ,85* ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A ,120*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 
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89; 

REM field arty battalion (AASLT division) #89 
Ui$="FIELD ARTILLERY BATTALION": U2$="AASLT DIVISION" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A ,65*ZF+B ) 
LINE(10*ZF+A ,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE(145*ZF+A,20*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE( 225*ZF+A,20*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE(185*ZF+A ,40*ZF+B )-(185*ZF+A,100*ZF+B ) 
LINE(145*ZF+A,100*ZF+B )-(225*ZF+A,100*ZF+B ) 
RETURN 


16'T*: 

REM military band #101 

U=5:Ui1$="MILITARY BAND": U2$={2"" 
CIRCLE(25*ZF+A,60*ZF+B),80*ZF,1,0,PI1/2 
CIRCLE(185*ZF+A,60*ZF+B),80*ZF,1,PI,0 
CIRCLE(345*ZF+A,60*ZF+B),80*ZF,1,P1I/2,PI 
LINE(185*ZF+A ,30*ZF+B )-(185*ZF+A,110*ZF+B ) 
LINE(140*ZF+A ,30*ZF+B )-(140*ZF+A,70*ZF+B ) 
LINE( 230*ZF+A,30*ZF+B )-(230*ZF+A ,70*ZF+B ) 
LINE(100*ZF+A ,50*ZF+B )-(270*ZF+A,50*ZF+B ) 
RETURN 


462: 

REM military police co #102 
U=5:U1$="MILITARY POLICE COMPANY":U2$={""" 
CIRCLE( 255*ZF+A,42*ZF+B),29*ZF,1,270*PI/180,90*PI/180 
LINE( 240*ZF+A ,30*ZF+B )-(255*ZF+A,30*ZF+B ) 
LINE(240*ZF+A ,54*ZF+B )-(255*ZF+A,54*ZF+B ) 
LINE(80*ZF+A ,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE(240*ZF+A ,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A,30*ZF-+B ) 
RETURN 


103: 

REM chemical co #103 

U=5:U1$="CHEMICAL COMPANY":U2S="" 

CIRCLE (80*ZF+A,50*ZF+B),30*ZF,3 
PAINT(80*ZF+A ,50*ZF+B),1,3 

CIRCLE (290*ZF+A,50*ZF+B),30*ZF,3 
PAINT(290*ZF+A,50*ZF+B),1,3 | 

LINE (290*ZF+A,100*ZF+B )-(98*ZF+A,40*ZF+B ) 
LINE (80*ZF+A,100*ZF+B )-(270*ZF+A,40*ZF+B ) 
RETURN 
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104: 

REM cavalry troop #104 

U=5:U1$="CAVALRY TROOP":U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE( 90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 


LO 

REM military intelligence company #105 
U=5:U1$="MILITARY INTELLIGENCE COMPANY": U2$="" 
LINE(220*ZF+A,30*ZF+B )-(260*ZF+A ,30*ZF+B ) 
LINE(220*ZF+A,100*ZF+B )-(260*ZF+A,100*ZF+B ) 
LINE(80*ZF+A,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A ,30*ZF+B ) 
RETURN 


106: 

REM hhq corps command #106 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS COMMAND" 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,30*ZF+B),1,BF 
LINE(140*ZF+A,36*ZF+B )-(160*ZF+A,43*ZF+B ) 
LINE(160*ZF+A,36*ZF+B )-(140*ZF+A,43*ZF+B ) 
LINE(175*ZF+A,36*ZF+B )-(195*ZF+A,43*ZF+B ) 
LINE(195*ZF+A,36*ZF+B )-(175*ZF+A,43*ZF+B ) 
LINE( 210*ZF+A,36*ZF+B )-( 230*ZF+A ,43*ZF+B ) 
LINE( 210*ZF+A ,43*ZF+B )-(230*ZF+A,36*ZF+B ) 
RETURN 


1 OF: 

REM hhq corps maintainance command #107 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 

U2$="CORPS MAINTAINANCE COMMAND" 

CIRCLE (50*ZF+A,65*ZF+B),50*ZF,1,270*PI/180,90*PI/180 
CIRCLE (320*ZF+A,65*ZF+B),50*ZF,1,90*PI/180,270*PI/180 
LINE (100*ZF+A ,65*ZF+B )-(270*ZF+A ,65*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZEF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 

RETURN . 
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108: 

REM corps signal command #108 
U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2S="CORPS SIGNAL COMMAND" 

LINE (10*ZF+A,10*ZF+B )-(185*ZF+A,80*ZF+B ) 
LINE(185*ZF+A,50*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(185*ZF+A,50*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


LOS : 

REM hhq arty command #109 
U=5:U1$S$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="ARTILLERY COMMAND" 

CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


110: 

REM hhq corps ada command #110 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS ADA COMMAND" 

CIRCLE 
(186*ZF+A,175*ZF+B),220*ZF,1,39*PI/180,142*PI/180 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A, 28*ZF+B )- (195*ZF+A, 37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )- ———— 37*ZF+B ) 

RETURN 


111: 

REM hhq corps engineer command #111 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS ENGINEER COMMAND" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A ,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN. 


NN Sige 


alee 

REM hhq corps medical command #112 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS MEDICAL COMMAND" 
LINE(10*ZF+A,65*ZF+B )-(360*ZF+A,65*ZF+B ) 
LINE(185*ZF+A,50*ZF+B )-(185*ZF+A,120*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


elke | 

REM hhq corps supply command #113 

U=5 :U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS SUPPLY COMMAND" 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37* ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN | 


114: 

REM hhq aviation brigade #114 

U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="AVIATION BRIGADE" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B),35*ZF,1,236*PI/180,124*PI/1i80 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B),1 
LINE(10*ZF+A,10*ZF+B )-( 360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A ,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A ,28*ZF+B )-(175*ZF+A,37*ZF+B ) 

RETURN 


eo: 

REM hhq division command #115 

U=5 :U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="DIVISION COMMAND" 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(150*ZF+A ,36*ZF+B )-(170*ZF+A,42*ZF+B ) 
LINE(170*ZF+A,36*ZF+B )-(150*ZF+A,42*ZF+B ) 
LINE( 200*ZF+A ,36*ZF+B )-(220*ZF+A,42*ZF+B ) 
LINE(220*ZF+A ,36*ZF+B )-(200*ZF+A,42*ZF+B ) 
RETURN 


198 


16 < 

REM hhq mountaineer brigade #116 
U=5:U1$S="HEADQUATERS AND HEADQUARTERS CO" 
U2S="MOUNTAINEER BRIGADE" 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF-+B ) 
LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


BT: 

REM hhq airborne brigade #117 

U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2$="AIRBORNE BRIGADE" 

CIRCLE(130*ZF+A,120*ZF+B ),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 

GOSUB u4 

RETURN 


Anes": 

REM hhq mech brigade #118 

U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 

U2$="MECH BRIGADE" 

CIRCLE (90*ZF+A,70*ZF+B ),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,70*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE (90*ZF+A,50*ZF+B )-(280*ZF+A,50*ZF+B ) 

LINE (90*ZF+A,90*ZF+B )-(280*ZF+A ,90*ZF+B ) 

GOSUB u4 | 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A, 28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 

RETURN 
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ae 

REM hhq armd brigade #119 

U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="ARMORED BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*P1I/180,90*PI/180 
LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A ,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 

RETURN 


1 Zor: 

REM hhq air cavalry combat brigade #120 

U=5:U1$="HHQ AIR CAVALRY COMBAT BRIGADE"; U2$="" 
CIRCLE(100*ZF+A,65*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B),35*ZF,1,236*PI/180,124*P1I/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B),1 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,30*ZF+B),1,BF 
LINE(170*ZF+A,36*ZF+B )-(190*ZF+A,42*ZF+B ) 
LINE(190*ZF+A,36*ZF+B )-(170*ZF+A,42*ZF+B ) 

RETURN 


Laas: 

REM ew company #121 

U=5:U1$="EW COMPANY" :U2$="" 

LINE (10*ZF+A,120*ZF+B )-(185*ZF+A,50*ZF+B ) 
LINE(185*ZF+A ,80*ZF+B )-(360*ZF+A ,10*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(185*ZF+A ,50*ZF+B ) 
RETURN 


eae 

REM signal company #122 

U=5:U1$="SIGNAL COMPANY":U2$="" 

LINE (10*ZF+A,10*ZF+B )-(185*ZF+A ,80*ZF+B ) 
LINE(185*ZF+A,50*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(185*ZF+A ,80*ZF+B )-(185*ZF+A ,50*ZF+B ) 
RETURN 


1 Za 

REM fernspaeh co #4123 

U=5:U1$="FERNSPAEH KOMPANIE":U2$="" 
LINE(10*ZF+A ,120*ZF+B )-(360*ZF+A ,10*ZF+B ) 
LINE(50*ZF+A ,65*ZF+B )-(320*ZF+A ,65*ZF+B ) 
LINE( 280*ZF+A,45*ZF+B )-(320*ZF+A,65*ZF+B ) 
LINE( 280*ZF+A,85*ZF+B )-(320*ZF+A ,65*ZF+B ) 
RETURN 
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Loe: 

' REM armored engineer company #124 

U1S="ARMORED ENGINEER COMPANY": U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZFB ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 

LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 

LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 

RETURN 


123: 

REM adjudant general #125 
U=5:U1$="ADJUDANT GENERAL": U2$="" 
LINE(70*ZF+A,100*ZF+B )-(120*ZF+A,30*ZF+B ) 
LINE(120*ZF+A,30*ZF+B )-(170*ZF+A,100*ZF+B ) 
LINE(95*ZF+A,65*ZF+B )-(145*ZF+A,65*ZF+B ) 
CIRCLE(240*ZF+A,85*ZF+B),40*ZF,1,PI,2*PI 
CIRCLE( 240*ZF+A,50*ZF+B),40*ZF,1,10/180*PI,PI 
LINE(200*ZF+A,50*ZF+B )-(200*ZF+A,85*ZF+B ) 
LINE(280*ZF+A,65*ZF+B )-(280*ZF+A,85*ZF+B ) 
LINE( 240*ZF+A,65*ZF+B )-(280*ZF+A ,65*ZF+B ) 
RETURN 


152 * 

REM engineer co #126 

U=5:U1$="ENGINEER COMPANY": U2S="" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE(212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZFB ) 

RETURN 
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ae. 

REM chemical co #127 

U=5:U1$="CHEMICAL COMPANY": U2$="" 

CIRCLE (80*ZF+A,50*ZF+B),30*ZF,3 
PAINT(80*ZF+A ,50*ZF+B),1,3 

CIRCLE (290*ZF+A,50*ZF+B),30*ZF,3 
PAINT(290*ZF+A,50*ZF+B),1,3 

LINE (290*ZF+A ,100*ZF+B )-(98*ZF+A,40*ZF+B ) 
LINE (80*ZF+A,100*ZF+B )-(270*ZF+A,40*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A ,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN 


ers 

REM support co #128 . 

U=5:U1$="SUPPORT COMPANY": U2$="" 
LINE(10*ZF+A,100*ZF+B )-(360*ZF+A,120*ZF+B),1,BF 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,100*ZF+B )-(182*ZF+A,80*ZF+B ) 
LINE( 212*ZF+A,100*ZF+B )-(182*ZF+A,80*ZF+B ) 
PAINT(165*ZF+A ,94*ZF+B ) 

RETURN 


IAS 

REM tragtier co #129 

U=5:U1$="TRAGTIER KOMPANIE":U2$="" 

LINE( 70*ZF+A,55*ZF+B-)-(300*ZF+A ,55*ZF+B ) 
LINE( 70*ZF+A,85*ZF+B )-(100*ZF+A,55*ZF+B ) 
LINE(100*ZF+A,55*ZF+B )-(130*ZF+A,85*ZF+B ) 
LINE( 300*ZF+A ,85*ZF+B )-(270*ZF+A ,55*ZF+B ) 
LINE(270*ZF+A ,55*ZF+B )-(240*ZF+A ,85*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE(212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN : 
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eo 0: 

REM antitank co #130 

U=5:U1$S$="ANTITANK COMPANY": U2$="" 
LINE(10*ZF+A,120*ZF+B )-(185*ZF+A ,10*ZF+B ) 
LINE(185*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(145*ZF+A,60*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE(185*ZF+A,40*ZF+B )-(225*ZF+A,60*ZF+B ) 
LINE(145*ZF+A,80*ZF+B )-(185*ZF+A,60*ZF+B ) 
LINE(185*ZF+A,60*ZF+B )-(225*ZF+A,80*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A ,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE(212*ZF+A ,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A ,114*ZF+B ) 

RETURN 


iol: 

REM airborne mortar co #131 

U=5:0U1$="AIRBORNE MORTAR COMPANY":U2$="" 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 
CIRCLE(182*ZF+A,80*ZF+B),25*ZF 

LINE(182*ZF+A,25*ZF+B )-(182*ZF+A,70*ZF+B ) 
LINE(152*ZF+A,50*ZF+B )-(212*ZF+A,50*ZF+B ) 
LINE(152*ZF+A, 60*ZF+B )-(212*ZF+A,60*ZF+B ) 
LINE(152*ZF+A,35*ZF+B )-(182*ZF+A,25*ZF+B ) 
LINE(182*ZF+A,25*ZF+B )-(212*ZF+A,35*ZF+B ) 

RETURN 


OZ: 

REM airborne engineer co #132 

U=5:U1S="AIRBORNE ENGINEER COMPANY": U2$="" 
PeRerr(1390*ZF+A ,120*ZH+B ) ,50*ZF,1,15*PI/180,165*P1I/180 
Game DE (240 *ZF#A ,120*ZF+B),50*ZF,1,15*PI/180,165*P1I/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A ,115*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 

LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 

LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 

RETURN 


PSs: 

REM airborne medical co #138 : 

U=5:U1S="AIRBORNE MEDICAL COMPANY":U2$="" 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A ,115*ZF+B )-(192*ZF+A,115*ZF+B ) 

LINE (10*ZF+A,65*ZF+B )-(360*ZF+A,65*ZF+B ) 
LINE(185*ZF+A,10*ZF+B )-(185*ZF+A,100*ZF+B ) 

RETURN 
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134: 

REM airborne support co #134 

U=5:U1$="AIRBORNE SUPPLY COMPANY":U2$="" 
CIRCLE(130*ZF+A,90*ZF+B ),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,90*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,85*ZF+B )-(192*ZF+A,85*ZEF+B ) 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,120*ZF+B),1,BF 
RETURN 


135; 

REM cavalry troop #135 

U=5:U1$="CAVALRY TROOP": U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE( 280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE( 90*ZF+A ,45*ZF+B )-( 280*ZF+A,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
CIRCLE(130*ZF+A ,120*ZF+B ),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A,120*ZF+B ),50*ZF,1,15*PI/180,165*P1I/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 

RETURN 


136. 

REM liaison squad #136 

U=5:U1$="AVIATION LIAISON": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A ,87*ZF+B )—-(250*ZF+A,113*ZF-+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZEF+B ) 
PAINT(100*ZF+A,100*ZF+B ),1:PAINT(270*ZF+A ,100*ZF+B),1 
LINE(140*ZF+A,75*ZF+B )-—-(230*ZF+A,75*ZF+B ) 
LINE(185*ZF+A ,48*ZF+B )—-(140*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(230*ZF+A,75*ZF+B ) 
LINE(140*ZF+A,75*ZF+B )-—-(230*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(140*ZF+A,75*ZF+B ) 
LINE(185*ZF+A ,48*ZF+B )-(230*ZF+A,75*ZF+B ) 
CIRCLE(80*ZF+A,40*ZF+B),30*ZF 

CIRCLE(290*ZF+A ,40*ZF+B),30*ZF 

LINE(110*ZF+A,40*ZF+B )-(260*ZF+A ,40*ZF+B ) 

RETURN 
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37: 

REM liaison squad #137 

U=5 :U1$="AVIATION LIAISON": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1:PAINT(270*ZF+A,100*ZF+B),1 
LINE(140*ZF+A,75*ZF+B )-(230*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(140*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(230*ZF+A,75*ZF+B ) 
PAINT(185*ZF+A,60*ZF+B),1 
CIRCLE(80*ZF+A,40*ZF+B ),30*ZF 
CIRCLE(290*ZF+A,40*ZF+B),30*ZF 
LINE(110*ZF+A,40*ZF+B )-( 260*ZF+A,40*ZF+B ) 

RETURN 


13S’: 

REM flugplatzkommandantur #138 

U=5:U1S="FIELD AIRPORT": U2S="" 
CIRCLE(100*ZF+A,100*ZF+B),35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B),35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A ,100*ZF+B),1:PAINT(270*ZF+A,100*ZF+B),1 
LINE(182*ZF+A,15*ZF+B )-(122*ZF+A,35*ZF+B ) 
LINE(182*ZF+A,15*ZF+B )-(242*ZF+A,35*ZF+B ) 
LINE(150*ZF+A,40*ZF+B )-(150*ZF+A,80*ZF+B ) 
LINE(150*ZF+A,65*ZF+B )-(220*ZF+A,40*ZF+B ) 
LINE(162*ZF+A,60*ZF+B )-(220*ZF+A,80*ZF+B ) 
RETURN 


~ 


139: 

REM brigade maintenance co #139 

U=5:U01S="MAINTENANCE COMPANY":U2$="" 

CIRCLE (50*ZF+A,65*ZF+B),50*ZF,1,270*PI/180,90*PI/180 
CIRCLE (320*ZF+A,65*ZF+B),50*ZF,1,90*PI/180,270*P1I/180 
LINE (100*ZF+A,65*ZF+B )-(270*ZF+A,65*ZF+B ) 

RETURN 


140: 

REM brigade supply co #140 

U=5:U1S="SUPPLY COMPANY":U2S="" 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 
RETURN 
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Paks 

REM antitank co #141 

U=5:U1$S$="ANTITANK COMPANY": U2$="" 
LINE(10*ZF+A,120*ZF+B )-(185*ZF+A ,10*ZF+B ) 
LINE(185*ZF+A ,10*ZF+B )-(360*ZF+A ,120*ZF+B ) 
LINE(145*ZF+A ,60*ZF+B )-(185*ZF+A ,40*ZF+B ) 
LINE(185*ZF+A ,40*ZF+B )-(225*ZF+A,60*ZF+B ) 
LINE(145*ZF+A,80*ZF+B )-(185*ZF+A ,60*ZF+B ) 
LINE(185*ZF+A ,60*ZF+B )-(225*ZF+A ,80*ZF+B ) 
RETURN 


142: 

REM engineer company #142 
U=5:U1$="ENGINEER COMPANY": U2$="" 

LINE (90*ZF+A ,55*ZF+B )-( 280*ZF+A ,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A ,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A ,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
RETURN 


143: 

REM wehrgericht #143 
U=0:0U1$="wehrgericht":U2$="" 
CIRCLE(240*ZF+A ,85*ZF+B),40*ZF,1,PI,2*PI 
CIRCLE(240*ZF+A ,50*ZF+B),40*ZF,1,10/180*PI,PI 
LINE( 200*ZF+A ,50*ZF+B )-( 200*ZF+A ,85*ZF+B ) 
LINE(280*ZF+A,65*ZF+B )-(280*ZF+A ,85*ZF+B ) 
LINE(240*ZF+A ,65*ZF+B )-(280*ZF+A ,65*ZF+B ) 
LINE(50*ZF+A ,33*ZF+B )-(80*ZF+A,103*ZF+B ) 
LINE(80*ZF+A,103*ZF+B )-(110*ZF+A ,65*ZF+B) 
LINE(110*ZF+A,65*ZF+B )-(140*ZF+A,103*ZF+B ) 
LINE(140*ZF+A ,103*ZF+B )-(170*ZF+A,33*ZF+B ) 
RETURN 


144: 

REM hhq infantry brigade #144 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="INFANTRY BRIGADE" 

GOSUB u4 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(170*ZF+A ,36*ZF+B )-(190*ZF+A ,42*ZF+B ) 
LINE(190*ZF+A ,36*ZF+B )-(170*ZF+A,42*ZF+B ) 
RETURN 
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source Code Program INMILDAT 


program INMILDAT 


bution of systems in a corps. 


JUNE 1987 
INMILDAT enables the user to define the distri- 


INMILDAT presents all available tactical signs and 


prompts for the number of systems in the 


REM respective unit. 

DIM N(150),UC(150) 

REM 

REM HHHHHMHRHMHHH HM HHH HH MHRHHMHHMRHHH HHH HHHHMHHHHHHHHNHHHH HHH OM 
REM ** Variable Directory ws 
REM HHHHHHHMHHMHMHHHHMHHHMHMHHHHMHHHHHHHHHHHHHHHHHHHHHH HHH HK 
Bee ** A auxiliary variable for screen pos. ** 
Raw ** B auxiliary variable for screen pos. ** 
REM ** ES$ auxiliary string variable * 
REM ** Fi auxiliary variable os 
REM ** N(x) number of systems in unit * 
Ram ** P2 auxiliary variable for screen pos. ** 
Bem ** PI mathematical constant % 
REM ** Q unit code number * 
REM ** U unit size code —s 
REM ** U1LsS unit description ee 
REM ** U2$ additional description HH 
REM ** UC(x) unit code number * 
REM ** ZF zoom factor for graph ee 


REM HHHMMHHHHH MH MH MMH MMH MH HHH HMM H HHH HHH HH MHH HH HHH HH HM HM 


BEY OFF:SCREEN 2 
A=140:B=10:F1=0:P2=1:PI=#=3.14153:X=0: Tit 
FOR Q=21 TO 144 
ig 
INCR X:UC(X)=Q 
CLS:GOSUB tacsign 
LOCATE 18,20:PRINT U1$ 
LOCATE 19,20:PRINT U2$ 
E$= ve 98 
POCATE 23,25 | 
INPUT "How many Systems in this Unit ";E$ 
PF ES<>"" THEN N(X)=VAL(ES) ELSE DECR X 
PUG 2e,SkLsiNPUT “Entry ok ";ES 
OCGA 22,20:PRINT " : 
LOCATE 23,20:PRINT " u 
iF @e—"n"” OR ES="N" THEN 11 
NEXT Q 
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Le: 

CES: LOCATE..5-25 

INPUT "Do you want a Reserve ";E$ 

IF E$S="N" OR ES="n" THEN 13 

INCR X:LOCATE 7,25 

INPUT "In per cent or absolute (p/a) ";E$ 

IF E$="P" OR E$S="p" THEN UC(X)=198:LOCATE LO; 2S an 
INPUT "Enter Percentage (e.g.: 25 ): "s;N(X):_ 
N(X )=N(X)/100:GOTO 14 

IF E$S="A" OR ES$S="a" THEN UC(X )=199: LOCATE 10 fo. 
INPUT "Enter Number : ";N(X):GOTO 14 

GOTO 12 


13: 
INCR X:UC(X )=200:N(X )=99 


14: 
CLs: LOCATE 5,23 
PRINT "To save Data, name File." 
locate 7,20 
PRINT "Default Filename is DISTRIBN." 
LOCATE 11,10 ) 
PRINT "To accept default press ENTER key or"; 
INPUT " enter Filename ",F$ 
IF F$="" THEN F$="DISTRIBN" 
OPEN "0" ,1,F$ 
WRITE#1 ,X 
FOR A=1 TO X 
WRITE#1,UC(A),N(A) 
NEXT A 
CLOSE 1 
CLS: LOCATE 20,30:PRINT "PROGRAM END" 
END 


REM HHHRHKHKRKRHKHKRKRHHKHRHHKHRHRHHRHRHHHHHKHRHHHHRHHHHHHHHHHRKHRHHHH HHH HK 
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REM HHH HH 
REM 

REM necc. 
REM 
REM 
REM 
REM 
REM 
tacsign: 


Subroutine to draw one Tactical Sign *****- 
zoom factor 

horizl. start coord. 
vertcl. start coord. 
value for constant 
value for unit type 


input: 


0 < ZF <= 1 
0 < A < 550 
0 < B < 150 
PI=3.141593 
O <= Q <= 144 


IA 
IF 
er 
ee 
IF 
re 
ee 
IF 
IF 
I¥ 
IF 
er 
re 
I¥ 
Le 
1s 
ie 
IF 
ik 
IF 
IF 
IF 
ik 
IF 


Q>144 THEN RETURN 
Q>121 THEN companies2 
Q>100 THEN companiesl1 
battalions 


Q>40 
Q=21 
Q=22 
Q=23 
Q=24 
Q=25 
Q=26 
Q=27 
Q=28 
Q=29 
Q=30 
Q=#31 
Q=32 
Q=33 
Q=34 
Q=35 
Q=36 
Q=37 
Q=38 
Q=39 
Q=40 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


battalions: 


IF 
IF 
IF 
ies 
IF 
IF 
IF 
Le 
I? 
IF 
IF 
LE 
iF 
IF 
IF 
IF 
IF 


Q=41 
Q=42 
Q=43 
Q=44 
Q=45 
Q=46 
Q=47 
Q=48 
Q=49 
Q=50 
Q=51 
Q=52 
Q=53 
Q=54 
Q=55 
Q=56 
Q=57 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
Ere 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
INCR 
INCR 
INCR 
INCR 
INCR 
INCR 
INCR 
INCR 
INCR 
INCR 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


OOOOO0O0O00D 


21 
22 
23 
24 
25 
26 


:GOTO 
:GOTO 
:;GOTO 
:GOTO 
:GOTO 
:GOTO 
aT. 
28: 
29: 
S102 


GOTO 
GOTO 
GOTO 
GOTO 


:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
;GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 


pox 
box 
box 
box 
pox 
pox 
pox 
box 
box 
box 


box 
pox 
pox 
pox 
box 
pox 
box 
box 
box 
pox 
box 
pox 
pox 
box 
box 
pox 
pox 
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IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
ie 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
1g 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


Q=58 
Q=59 
Q=60 
Q=61 
Q=62 
Q=63 
Q=64 
Q=65 
Q=66 
Q=67 
Q=68 
Q=69 
Q=70 
Q=71 
Q=72 
Q=73 
Q=74 
Q=75 
Q=76 
Q=77 
Q=78 
Q=79 
Q=80 
Q=81 
Q=82 
Q=83 
Q=84 
Q=85 
Q=86 
Q=87 
Q=88 
Q=89 
Q=90 
Q=91 
Q=92 
Q=93 
Q=94 
Q=95 
Q=96 
Q=97 
Q=98 
Q=99 


Q=100 THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
INCR 

INCR 

INCR 

INCR 

INCR 

INCR 

INCR 

INCR 

INCR 

INCR 


OOOO OOOO0DO 


58: 
59: 


60 
61 
62 


64 
65 


ve 
73 
75 
al. 
79 


80 
81 


86 
87 


89 


INCR Q 


GOTO 
GOTO 


:GOTO 
:GOTO 
:GOTO 
O35 


GOTO 


:GOTO 
:GOTO 
66: 
67: 
68: 
69: 
10; 


GOTO 
GOTO 
GOTO 
GOTO 
GOTO 


:GOTO 
Le 


GOTO 


:GOTO 
74: 


GOTO 


:GOTO 
76:3 


GOTO 


:GOTO 
78: 


GOTO 


;GOTO 
:GOTO 
:;GOTO 
82: 
Sa 
84; 
$5; 


GOTO 
Gono 
GOTO 
Gono 


:GOTO 
:GOTO 
88: 


GOTO 


> GOTO 


box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
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companies1: 


IF 
IF 
7? 
IF 


Q=101 
Q=102 
Q=103 
Q=104 
Q=105 
Q=106 
Q=107 
Q=108 
Q=109 
Q=110 
Q=111 
Q=112 
Q=113 
Q=114 
Q=115 
Q=116 
Q=117 
Q=118 
Q=119 
Q=120 
Q=121 


THEN 


THEN 
THEN 
THEN 
THEN 


companies2: 


IF 


Q=122 
Q=123 
Q=124 
Q=125 
Q=126 
Q=127 
Q=128 
Q=129 
Q=130 
Q=131 
Q=132 
Q=133 
Q=134 
Q=135 
Q=136 
Q=137 
Q=138 
Q=139 
Q=140 
Q=141 
Q=142 
Q=143 
Q=144 


RETURN 
Ssegment 


REM + 34 34 3 HE HE OE OH OH OH OO OH OH OOH OO HOH OH OOH OH OH HOH OH OHH OOH OH OH OK 


THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


OL. : 
102% 
POS : 
104: 
105: 
106: 
10 7% 
108: 
109: 
110: 
1 68: 
112: 
rs : 
ied: 
Ime ; 
IsL6:: 
er 7: 
ms: 
119: 
20: 
es 


eZ: 
Wao: 
Lea¢: 
las: 
1216 : 
L275 
L2Zs ; 
129: 
130 ; 
ion : 
Mod: 
m3: 
134: 
is'5'* 
GG: 
:GOTO 
1388 


1eS'7 


Co 
140 
141 
142 


144 


GOTO 


:GOTO 
:GOTO 
:GOTO 
:GOTO 
P23: 


GOTO 


> GOTO 


2 ist 


pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 
pox 


pox 
box 
pox 
box 
pox 
pox 
pox 
pox 
box 
pox 
pox 
pox 
box 
pox 
pox 
pox 
box 
pox 
box 
pox 
pox 
pox 
box 


box: 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 


IF U=1 THEN LINE(155*ZF+A,1*ZF+B)-(175*ZF+A,8*ZF+B):_ 
LINE(175*ZF+A,1*ZF+B )-(155*ZF+A,8*ZF+B ): __ 
LINE(195*ZF+A,1*ZF+B )-(215*ZF+A,8*ZF+B ): _ 
LINE( 215*ZF+A,1*ZF+B )-(195*ZF+A,8*ZF+B ) 

IF U=2 THEN LINE(175*ZF+A,1*ZF+B )-(195*ZF+A,8*ZF+B ):_ 
LINE(195*ZF+A ,1*ZF+B )-(175*ZF+A,8S*ZF+B ) 

IF U=3 THEN LINE(165*ZF+A,1*ZF+B)-(165*ZF+A,7*ZF+B ): _ 
LINE(185*ZF+A,1*ZF+B )-(185*ZF+A,7*ZF+B): _ 
LINE (205*ZF+A,1*ZF+B )-(205*ZF+A,7*ZF+B ) 

IF U=4 THEN LINE(175*ZF+A,1*ZF+B )-(175*ZF+A,7*ZF+B ): _ 
LINE (195*ZF+A,1*ZF+B)-(195*ZF+A,7*ZF+B ) 

IF U=5 THEN LINE(185*ZF+A,1*ZF+B )-(185*ZF+A,7*ZF+B ) 

IF Pi=1 THEN LOCATE B/8+17*ZF,A/8+54*ZF 

IF E$="1" THEN 120 ELSE PRINT E$ 

720: 

RETURN 


REM dE HE HE FE HE FE HE HE DE DE DE DE DE DE DE DE DE DE DE DE EE 9G 2E 9E DE FE 9G 9G EE HE DE DE EE EE EE EE EE EE 9 HE HH OH 


u43: 


LINE(10*ZF+A ,10*ZF+B )-(360*ZF+A ,120*ZF+B ) 
LINE(10*ZF+A ,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
RETURN 


REM HE HE HE HE DE DE DE DE DE DE FE DE DE DE DE DE DE FE DE DE FE DE DE 2E DEE DE 9E DE DE DE 9G DE 2E 9E EE 9E EE 9E EE EE 9 EE 9 HH 
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a gs 
REM anti aircraft regiment (corps) #21 
UiS="ANTI AIRCRAFT DEFENCE REGIMENT": U2$="":U=3 
CIRCLE (207*ZF+A,50*ZF+B), _ 
140*ZF,1,138*PI/180,223*PI/180 
CERELE (186*ZF+A,175*ZF+B),_ 
220*ZF,1,39*PI/180,142*PI/180 
CIRCLE (140*ZF+A,105*ZF+B),_ 
14*ZF,1,90*PI/180,270*PI/1i80 
CEGeLe C22O*ZE +, 105*ZF+B )y_ 
14*ZF,1,270*PI/180,90*PI/180 
LINE(140*ZF+A,98*ZF+B )-(220*ZF+A,98*ZF+B ) 
LINE (140*ZF+A,112*ZF+B )-(220*ZF+A,112*ZF+B ) 
LINE (76*ZF+A,45*ZF+B )-(206*ZF+A,45*ZF+B ) 
LINE (156*ZF+A,65*ZF+B )-(286*ZF+A,65*ZF+B ) 
LINE (206*ZF+A,45*ZF+B )-(156*ZF+A,65*ZF+B ) 
LINE (182*ZF+A,101*ZF+B )-(168*ZF+A,104*ZF+B ) 
LINE (182*ZF+A,101*ZF+B )-(196*ZF+A,104*ZF-+B ) 
LINE (182*ZF+A,106*ZF+B )-(168*ZF+A,109*ZF+B ) 
LINE (182*ZF+A ,106*ZF+B )-(196*ZF+A,109*ZF+B ) 
LINE(130*ZF+A,15*ZF+B )-(150*ZF+A,25*ZF+B ) 
LINE(150*ZF+A,15*ZF+B )-(130*ZF+A,25*ZF+B ) 
LINE(175*ZF+A,15*ZF+B )-(195*ZF+A,25*ZF+B ) 
LINE(195*ZF+A,15*ZF+B )-(175*ZF+A,25*ZF+B ) 
LINE( 220*ZF+A,15*ZF+B )-(240*ZF+A,25*ZF+B ) 
LINE( 220*ZF+A,25*ZF+B )-(240*ZF+A,15*ZF+B ) 
RETURN 


Za: 
REM anti aircraft regiment (divisional) #22 
UiS="ANTI AIRCRAFT DEFENCE REGIMENT": U2$="";U=3 
ETRCLE (207*ZF+A,50*ZF+B),_ 
140*ZF ,1,137*PI/180,223*P1I/1i80 
CERETE ( 1S64*ZF 4X, U75"ZP+B),_ 
220*ZF,1,39*PI/180,142*PI/180 
CIRCLE (140*ZF+A,105*ZF+B),_ 
14*ZF,1,90*PI/180,270*PI/180 
CIRCLE (220*ZF+A,105*ZF+B),_ 
14*ZF,1,270*PI/180,90*PI/1i80 
LINE(140*ZF+A,98*ZF+B )-(220*ZF+A,98*ZF+B ) 
LINE (140*ZF+A,112*ZF+B )-(220*ZF+A,112*ZF+B ) 
LINE (76*ZF+A,45*ZF+B )-(206*ZF+A ,45*ZF+B ) 
LINE (156*ZF+A,65*ZF+B )-(286*ZF+A ,65*ZF+B ) 
LINE (206*ZF+A,45*ZF+B )-(156*ZF+A,65*ZF+B ) 
CIRCLE(182*ZF+A,105*ZF+B),10*ZF,3 
PAINT(186*ZF+A,105*ZF+B),1,3 
LINE(150*ZF+A,15*ZF+B )-(170*ZF+A ,25*ZF+B ) 
LINE(170*ZF+A,15*ZF+B )-(150*ZF+A,25*ZF+B ) 
LINE(200*ZF+A,15*ZF+B )-(220*ZF+A,25*ZF+B ) 
LINE( 200*ZF+A ,25*ZF+B )-(220*ZF+A,15*ZF+B ) 
RETURN 
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Zon 

REM aviation regiment # 23 

U=3:U1$S="AVIATION REGIMENT": U2$="" 

CIRCLE(100*ZF+A,100*ZF+B ), 
35*ZF,1,56*PI/180, 304*PI/180 

CIRCLE(270*ZF+A, 100*ZF+B), 

Sora, Ls 236*P1I/180, 124*PI/180 
LINE(120*ZF+A, 87*ZF+B )- (250*ZF+A, 113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B)-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1 
PAINT(270*ZF+A,100*ZF+B),1 
CIRCLE(185*ZF+A, 50*ZF+B),70*ZF 
LINE (135*ZF+A, 31*ZF+B)- (237*ZF+A, 69*ZF+B) 
LINE(136*ZF+A, 69*ZF+B )- (235*ZF+A, 31*ZF+B) 
LINE (185*ZF+A ,22*ZF+B)-(185*ZF+A,78*ZF+B) 
LINE (115*ZF+A,50*ZF+B )-(255*ZF+A,50*ZF+B ) 
LINE (30*ZF+A,10*ZF+B )-(30*ZF+A,120*ZF+B ) 
RETURN 


24.3 

REM aviation regiment #24 

U=3:0U1$="AVIATION REGIMENT": U2$="" 

CIRCLE(100*ZF+A,100*ZF+B ), 
35*ZF,1,56*P1I/180, 304*PI/180 

CIRCLE(270*ZF+A, 100*ZF+B ), 

So ° Zhe 236*PI/180, 124*PI/180 
LINE(120*ZF+A, 87*ZF+B )- (250*ZF+A, 113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1 
PAINT(270*ZF+A,100*ZF+B ),1 
CIRCLE(180*ZF+A,50*ZF+B),70*ZF 
LINE (130*ZF+A ,31*ZF+B )-(232*ZF+A ,69*ZF+B ) 
LINE(131*ZF+A ,69*ZF+B )-(230*ZF+A,31*ZF+B ) 
LINE (180*ZF+A,22*ZF+B )-(180*ZF+A,78*ZF+B ) 
LINE (110*ZF+A,50*ZF+B )-(250*ZF+A, 5O*ZF+B ) 
RETURN 
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oo: 
REM combat aviation regiment #25 
U=3:U1$="COMBAT AVIATION REGIMENT": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B), __ 
35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B), _ 
35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(180*ZF+A,10*ZF+B ) 
LINE(360*ZF+A ,120*ZF+B )-(180*ZF+A,10*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1 
PAINT(270*ZF+A,100*ZF+B),1 
LINE(145*ZF+A,60*ZF+B )-(185*ZF+A ,40*ZF+B ) 
LINE(185*ZF+A,40*ZF+B )-(225*ZF+A ,60*ZF+B ) 
LINE(145*ZF+A ,80*ZF+B )-(185*ZF+A,60*ZF+B ) 
LINE(185*ZF+A,60*ZF+B )-(225*ZF+A,80*ZF+B ) 
RETURN 


26: 
REM armored cavalry regiment #26 
U=3:0U1$S$="ARMORED CAVALRY REGIMENT": U2$="" 
CIRCLE (90*ZF+A,65*ZF+B), _ 
48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B), 
48*ZF,1,270*P1I/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
RETURN 


Bi7 : 

REM military intelligence regiment #27 
U=3:U1$S="MILITARY INTELLIGENCE REGIMENT": U2$="" 
LINE( 220*ZF+A,30*ZF+B )-(260*ZF+A,30*ZF+B ) 
LINE(220*ZF+A ,100*ZF+B )-( 260*ZF+A,100*ZF+B ) 
LINE(80*ZF+A,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A,30*ZF+B ) 
RETURN . 
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Ao 

REM field artillery regiment #28 
U=3:U1$="FIELD ARTY REGIMENT" :U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 
LINE(155*ZF+A,16*ZF+B )-(175*ZF+A,22*ZF+B ) 
LINE(175*ZF+A,16*ZF+B )-(155*ZF+A,22*ZF+B ) 
LINE(195*ZF+A,16*ZF+B )-(215*ZF+A,22*ZF+B ) 
LINE( 215*ZF+A,16*ZF+B )-(195*ZF+A,22*ZF+B ) 
RETURN 


20 

REM cav reg air atk #29 

U=3:U1$="CAVALRY REGIMENT AIR ATTACK": U2$="" 

CIRCLE(100*ZF+A,65*ZF+B), _ 
35*ZF,1,56*PI/180,304*PI/180 

CIRCLE(270*ZF+A,65*ZF+B), _ 
35*ZF,1,236*PI/180,124*PI/180 

LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,78*ZF+B ) 

LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 

LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

PAINT(100*ZF+A,65*ZF+B),1 

PAINT(270*ZF+A,65*ZF+B),1 

RETURN 


S30 
REM aviation gp #30 
U=0:0U1$="AVIATION GROUP": U2$="" 
CIRCLE(100*ZF+A,65*ZF+B), _ 
35*ZF,1,56*PI/180,304*PI/1i80 
CIRCLE(270*ZF+A,65*ZF+B), _ 
35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A ,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1 
PAINT(270*ZF+A,65*ZF+B),1 
LINE(140*ZF+A,25*ZF+B )-(185*ZF+A,55*ZF+B ) 
LINE(185*ZF+A,55*ZF+B )-(230*ZF+A,25*ZF+B ) 
LINE(185*ZF+A,55*ZF+B )-(185*ZF+A,95*ZF+B ) 
LINE(140*ZF+A,95*ZF+B )-(230*ZF+A,95*ZF+B ) 
RETURN 


41: ; 

REM motorized infantery (divisional) #41 
U=4:U1$="MOTORIZED INFANRTY BATTALION": U2$="" 
GOSUB u4 

RETURN 
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ea 
REM airborne battalion #42 
U=4:U1$="AIRBORNE BATTALION": U2$="" 
CIRCLE(130*ZF+A,120*ZF+B), 
aot 7,1, 15*PI/180, 165*P1I/180 
CIRCLE( 240*ZF+A, 120*ZF+B), 
50*ZF,1,15*PI/180, 165*PI/180 
LINE(178*ZF+A, 115*ZF+B)-(192*ZF+A,115*ZF+B ) 
GOSUB u4 
RETURN 


43: 

REM mountaineer battalion #483 
U=4:U1$="INFANTRY BATTALION" 

U2S$="MOUNTAINEER DIVISION" 

GOSUB u4 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE(212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN 


44; 

REM mechanized infantery battalion (armored brig) #44 

U=4:U1$S="MECHANIZED INFANTRY BATTALION" 

U2$S$="ARMORED BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B),_ 
48*ZF,1,90*PI/180,270*PI/180 

CIRCLE( 280*ZF+A, 65*ZF+B), 
48*ZF,1,270*PI/180,90*PI/180 

LINE(90*ZF+A, 45*ZF4+B )- (280*ZF+A, 45*ZF+B ) 

LINE( 90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B) 

GOSUB u4 

RETURN 


45: 

REM mechanized infantery battalion (infant. brig) #45. 

U=4:U1$S$="MECHANIZED INFANTRY BATTALION" 

U2S="MECHANIZED INFANTRY BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B), 
48*ZF,1,90*PI/180,270*PI/180 

CIRCLE(280*ZF+A, 65*ZF+B), 

Asner, 1, 270*PI/180, 90*PI/180 
LINE(90*ZF+A. 45*ZF+B)- (280*ZF+A, 45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 
GOSUB u4 
LINE(10*ZF+A,10*ZF+B )-(35*ZF+A,120*ZF+B),,BF 
RETURN 


ele 


46; 

REM motorized infantery (divisional) #46 
U=4:U1$="MOTORIZED INFANRTY BATTALION": U2$="" 
LINE (165*ZF+A,90*ZF+B )-(205*ZF+A,110*ZF+B ) 
LINE (165*ZF+A,110*ZF+B )-(205*ZF+A,90*ZF+B ) 
GOSUB u4 

RETURN 


47; 

REM motorized infantery (aaslt div) #47 
U=4:0U1$="MOTORIZED INFANRTY BATTALION": U2$="" 
GOSUB u4 

LINE(140*ZF+A,35*ZF+B )-(185*ZF+A ,65*ZF+B ) 
LINE(185*ZF+A,65*ZF+B )-(230*ZF+A,35*ZF+B ) 
RETURN 


48: : 

REM airborne infantry battalion #48 
U=4:U1$="AIRBORNE INFANTRY BATTALION": U2$="" 
CIRCLE(185*ZF+A,80*ZF+B ),80*ZF 
LINE(50*ZF+A ,60*ZF+B )-( 280*ZF+A,115*ZF+B),0,BF 
LINE(10*ZF+A,10*ZF+B )-(127*ZF+A ,47*ZF+B ) 
LINE( 360*ZF+A ,10*ZF+B )-(233*ZF+A,47*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(127*ZF+A,73*ZF+B ) 
LINE(360*ZF+A ,120*ZF+B )-(233*ZF+A,73*ZFB ) 
LINE (122*ZF+A,60*ZF+B )-(185*ZF+A,90*ZF+B ) 
LINE(185*ZF+A,90*ZF+B )-(245*ZF+A,60*ZF+B ) 
LINE(122*ZF+A,60*ZF+B )-(245*ZF+A ,60*ZF+B ) 
RETURN 


49; 

REM armored reconnaissance battalion #49 

U=4:U1$="ARMORED CAVALRY BATTALION ":U2$="" 

CIRCLE (90*ZF+A,65*ZF+B), _ : 
48*ZF,1,90*PI/180,270*P1I/180 

CIRCLE(280*ZF+A,65*ZF+B), _ 
48*ZF,1,270*PI/180,90*PI/180 

LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 
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oO: 

REM air cavalry squadron #50 

U=4:0U1$="AIR CAVALRY SQUADRON": U2$="" 

CIRCLE(100*ZF+A ,65*ZF+B), _ 
35*ZF,1,56*P1I/180,304*PI/180 

CIRCLE(270*ZF+A,65*ZF+B),_ 
35*ZF,1,236*PI/180,124*P1I/180 

LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,78*ZF+B ) 

LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 

LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

PAINT(100*ZF+A ,65*ZF+B),1 

PAINT(270*ZF+A,65*ZF+B),1 

RETURN 


els 

REM armored battalion (mech. inf. brig) #51 

U=4:U1$="ARMORED BATTALION" 

U2$="MECHANIZED INFANTRY BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B),_ 
48*ZF,1,90*PI/180,270*PI/180 

CIRCLE( 280*ZF+A,65*ZF+B), _ 
48*ZF,1,270*PI/180,90*PI/180 

LINE(90*ZF+A,45*ZF+B )-( 280*ZF+A,45*ZF+B ) 

LINE(90*ZF+A,85*ZF+B )-( 280*ZF+A,85*ZF+B ) 

RETURN 


52: 

REM armored battalion (armored brig) #52 

U=4:U1$="ARMORED BATTALION": U2$="ARMORED BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B), _ 
48*ZF,1,90*PI/180,270*P1I/180 

CIRCLE( 280*ZF+A,65*ZF+B), _ 
48*ZF,1,270*P1I/180,90*PI/180 

LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 

LINE (10*ZF+A,10*ZF+B )-(30*ZF+A,120*ZF+B),,BF 

RETURN 
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asus 

REM armored battalion (airborne brig) #53 

U=4:U1$="ARMORED BATTALION": U2$="AIRBORNE BRIGADE" 

CIRCLE (90*ZF+A,65*ZF+B), _ 
48*ZF,1,90*PI/180,270*PI/180 

CIRCLE( 280*ZF+A ,65*ZF+B),_ 
48*ZF,1,270*PI/180,90*PI/180 

LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE (90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

CIRCLE(130*ZF+A,120*ZF+B), __ 
50*ZF,1,15*PI/180,165*PI/180 

CIRCLE(240*ZF+A ,120*ZF+B), __ 
50*ZF,1,15*PI/180,165*PI/180 

LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 

RETURN 


54: . 

REM attack helicopter battalion #54 

U=4:U1$="ATTACK HELICOPTER BATTALION" :U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),_ 
60*ZF,1,90*PI/180,270*P1/180 

CIRCLE(280*ZF+A,65*ZF+B),_ 
60*ZF,1,270*PI/180,90*PI/180 

LINE( 90*ZF+A ,40*ZF+B )-(280*ZF+A,40*ZF+B ) 

LINE( 90*ZF+A,90*ZF+B )-(280*ZF+A ,90*ZF+B ) 

CIRCLE(100*ZF+A ,65*ZF+B), _ 
35*ZH,1,50"Pi/ 1307s 4 aso 

CIRCLE(270*ZF+A ,65*ZF+B), _ 
35*ZF,1,236*PI/180,124*PI/180 

LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 

LINE(120*ZF+A ,78*ZF+B )-(250*ZF+A ,52*ZF+B ) 

PAINT(100*ZF+A,65*ZF+B),1 

PAINT(270*ZF+A ,65*ZF+B),1 

RETURN 


Oitbas 

REM field artillery battalion #55 
U=4:U1$="FIELD ARTY BATTALION": U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

RETURN 


Ge: 

REM field artilley battalion #56 
U=4:U1$="FIELD ARTILLERY BATTALION": U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B ) 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
RETURN 
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on 

REM field artilley battalion #57 

U=j4:U1$="FIELD ARTILLERY BATTALION": U2$="" 

CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 

LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
CIRCLE(130*ZF+A,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
CIRCLE( 240*ZF+A ,120*ZF+B),50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF-+B ) 

RETURN | 


5S 

REM reconnaissance battalion #58 
U=4:U1$="RECONNAISSANCE BATTALION ":U2$="" 
CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
RETURN 


59: 

REM field arty battalion #59 

U=ewULS="FERELD ARTILLERY BATTALION":U2$="" 

CIRCLE (90*ZF+A,65*ZF+B),48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A ,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85 *ZF+B ) 

CIRCLE (180*ZF+A,65*ZF+B),20*ZF,3 

PAINT (180*ZF+A,65*ZF+B),3,3 

RETURN 


60: 

REM missile artillery battalion #60 
U=4:U1$="MISSILE ARTY BATTALION" :U2$="" 
LINE(180*ZF+A,35*ZF+B )-(140*ZF+A,60*ZF+B ) 
LINE(180*ZF+A ,35*ZF+B )-(220*ZF+A ,60*ZF+B ) 
LINE(180*ZF+A,45*ZF+B )-(140*ZF+A,70*ZF+B ) 
LINE(180*ZF+A,45*ZF+B )-(220*ZF+A,70*ZF+B ) 
CIRCLE (180*ZF+A,80*ZF+B),25*ZF,3 
PAINT(180*ZF+A,80*ZF+B),1,3 

RETURN 


cael 


One: 

REM pershing battalion #61 

U=4:U1$="MISSILE ARTY BATTALION": U2$="PERSHING" 

CIRCLE( 360*ZF+A,100*ZF+B), _ 
220*ZF,1,142.5*PI/180,180*PI/180 

CIRCLE(5*ZF+A ,100*ZF+B),220*ZF,1,0,37.5*P1I/180 

LINE(140*ZF+A,100*ZF+B )-(140*ZF+A,120*ZF+B ) 

LINE(225*ZF+A,100*ZF+B )-(225*ZF+A,120*ZF+B ) 

LINE(143*ZF+A ,86*ZF+B )-(222*ZF+A ,86*ZF+B ) 

LINE(140*ZF+A,106*ZF+B )-(225*ZF+A ,106*ZF+B ) 

CIRCLE (180*ZF+A,96*ZF+B ),9*ZF,3 

 PAINT(180*ZF+A ,96*ZF+B),1,3 

RETURN 


62: 

REM mountaineer artillery battalion #62 
U=4:01$="FIELD ARTILLERY BATTALION" 
U2$="MOUNTAINEER DIVISION" 

CIRCLE (185*ZF+A,65*ZF+B ),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B), ,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN 


63: 

REM nbc battalion #63 

U=4:U1$="NBC BATTALION": U2$="" 

CIRCLE (80*ZF+A,50*ZF+B),30*ZF,3 
PAINT(80*ZF+A,50*ZF+B),1,3 

CHRGLE (290*ZF+A,50*ZF+B),30*ZF,3 
PAINT(290*ZF+A,50*ZF+B),1,3 

LINE (290*ZF+A,100*ZF+B )-(98*ZF+A,40*ZF+B ) 
LINE (80*ZF+A,100*ZF+B )-(270*ZF+A ,40*ZF+B ) 
RETURN 


64: 

REM combat aviation bn #64 1: 

U=4:U1$="COMBAT AVIATION BATTALION" :U2$="" 

CIRCLE(100*ZF+A,65*ZF+B), _ 
35*ZF,1,56*PI/180,304*PI/180 

CIRCLE(270*ZF+A,65*ZF+B), _ 
35*ZF,1,236*PI/180,124*PI/180 

LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,78*ZF+B ) 

LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 

PAINT(100*ZF+A ,65*ZF+B),1 

PAINT(270*ZF+A ,65*ZF+B),1 

RETURN 
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65 

REM military intelligence battalion #65 
U=4:U1S$="MILITARY INTELLIGENCE BATTALION": U2$="" 
LINE(220*ZF+A,30*ZF+B )-( 260*ZF+A,30*ZF+B ) 
LINE(220*ZF+A,100*ZF+B )-(260*ZF+A,100*ZF+B ) 
LINE(80*ZF+A,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A,30*ZF+B ) 
RETURN 


66: 

REM medical battalion #66 

U=4:U1$="MEDICAL BATTALION": U2$="" 

LINE (10*ZF+A,65*ZF+B )-(360*ZF+A,65*ZF+B ) 
LINE (185*ZF+A,10*ZF+B )-(185*ZF+A,120*ZF+B ) 
RETURN 


67: 

REM medical evacuation battalion #67 
U=4:U1$="MEDICAL EVACUATION BATTALION": U2$="" 
CIRCLE(180*ZF+A,65*ZF+B),70*ZF 

LINE (130*ZF+A,46*ZF+B )-(232*ZF+A,84*ZF+B ) 
LINE(131*ZF+A,85*ZF+B )-(230*ZF+A,46*ZF+B ) 
LINE (185*ZF+A,10*ZF+B )-(185*ZF+A,120*ZF-+B ) 
LINE (10*ZF+A,65*ZF+B )-(360*ZF+A,65*ZF+B ) 
LINE(10*ZF+A,10*ZF+B)-(40*ZF+A,120*ZF+B),,BF 
RETURN 


68: 

REM maintainance battalion #68 

U=4:U1$="MAINTAINANCE BATTALION": U2$="" 

CIRCLE (50*ZF+A,65*ZF+B),_ 
50*ZF,1,270*PI/180,90*PI/180 

CIRCLE (320*ZF+A,65*ZF+B),_ 
50*ZF,1,90*PI/180,270*PI/180 

LINE (100*ZF+A,65*ZF+B )-(270*ZF+A,65*ZF+B ) 

RETURN 


OAS 


69: : 

REM maintainance battalion (electronic mn.) #69 

U=4:U1$="MAINTAINANCE BATTALION" 

U2$="(ELECTRONIC MAINTAINANCE )" 

CIRCLE (50*ZF+A,85*ZF+B), _ 
50*ZF,1,270*PI/180,90*PI/180 

CIRCLE (320*ZF+A,85*ZF+B), _ 
50*ZF,1,90*PI/180,270*PI/180 

LINE (100*ZF+A,85*ZF+B )-(270*ZF+A,85*ZF+B ) 

LINE(140*ZF+A ,30*ZF+B )-(140*ZF+A,50*ZF+B ) 

LINE (230*ZF+A,30*ZF+B )-(230*ZF+A ,50*ZF+B ) 

LINE(230*ZF+A ,30*ZF+B )-(140*ZF+A,40*ZF+B ) 

LINE(230*ZF+A,50*ZF+B )-(140*ZF+A,40*ZF+B ) 

PAINT(160*ZF+A ,40*ZF+B ) 

LINE(57*ZF+A ,40*ZF+B )-(310*ZF+A ,40*ZF+B ) 

RETURN 


70:3 

REM supply battalion #70 

U=4:0U1$="SUPPLY BATTALION" :U2$="" 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 
RETURN 


Lies 
REM supply battalion for special weapons #71 
U=4:U1$="SUPPLY BATTALION (SW)":U2$="" 
LINE (10*ZF+A,100*ZF+B )-(360*ZF+A ,100*ZF+B ) 
LINE(235*ZF+A,55*ZF+B )-(220*ZF+A ,75*ZF+B ) 
CIRCLE(150*ZF+A,60*ZF+B), _ 
13*ZF,1,45*PI/180,270*P1I/180 
CIRCLE(150*ZF+A,70*ZF+B),_ 
13*ZF,1,225*PI/180,90*PI/180 
LINE(185*ZF+A ,55*ZF+B )-( 200*ZF+A,75*ZF+B ) 
LINE( 200*ZF+A ,75*ZF+B )-(210*ZF+A,60*ZF+B ) 
LINE( 210*ZF+A ,60*ZF+B )-(220*ZF+A,75*ZF+B ) 
RETURN 


Tae 

REM transportation battalion #72 
U=4:U1S="TRANSPORTATION BATTALION": U2$="" 
CIRCLE(180*ZF+A ,65*ZF+B),70*ZF 

LINE (130*ZF+A ,46*ZF+B )-(232*ZF+A,84*ZF+B ) 
LINE(131*ZF+A,85*ZF+B )-(230*ZF+A ,46*ZF+B ) 
LINE (180*ZF+A,37*ZF+B )-(180*ZF+A,93*ZF+B ) 
LINE (110*ZF+A,65*ZF+B )-(250*ZF+A ,65*ZF+B ) 
RETURN 
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‘tae 
REM military police battalion #73 
U=4 :U1$S="MILITARY POLICE BATTALION": U2$=_"" 
CIRCLE( 255*ZF+A,42*ZF+B),_ 
29*ZF,1,270*P1I/180,90*PI/180 
LINE(240*ZF+A,30*ZF+B )-(255*ZF+A,30*ZF+B ) 
LINE( 240*ZF+A,54*ZF+B )-(255*ZF+A,54*ZF+B ) 
LINE(80*ZF+A,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF-+B ) 
LINE( 240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF-+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A,60*ZF+B ) 
LINE(120*ZF+A,60*ZF+B )-(160*ZF+A,30*ZF+B ) 
RETURN 


tes 

REM ada battalion #74 

U=4:U1S="ADA BATTALION": U2S$="CORPS ADA COMMAND" 

CIRCLE (186*ZF+A,175*ZF+B), | 
220*ZF,1,39*PI/180,142*PI/180 

RETURN 


753 

REM ada battalion #75 

U=4:U1S="ADA BATTALION": U2$="AIRBORNE DIVISION" 

CIRCLE (186*ZF+A,175*ZF+B),_ 
220*ZF,1,39*PI/180,142*PI/180 

CIRCLE(130*ZF+A,120*ZF+B), | 
5O*ZF,1,15*PI/180,165*PI/180 

CIRCLE(240*ZF+A,120*ZF+B),_ 
50*ZF,1,15*PI/180,165*PI/180 

LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 

RETURN 


76: 

REM ew battalion #76 

U=4:U1$="EW BATTALION": U2S="" 

LINE (10*ZF+A,120*ZF+B )-(185*ZF+A,50*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(360*ZF+A,10*ZF+B ) 

LINE(185*ZF+A,80*ZF+B )-(185*ZF+A,50*ZF+B ) 

RETURN ° 


Le: 

REM signal battalion #77 

U=4:U1S="SIGNAL BATTALION" :U2S="" 

LINE (10*ZF4+A,10*ZF+B )-(185*ZF+A,80*ZF+B ) 

LINE(185*ZF+A,50*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(185*ZF+A,50*ZF+B ) 

RETURN 
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1&3 

REM signal construction battalion #78 
U=4:U1$="SIGNAL CONSTRUCTION BATTALION" :U2$="" 
LINE (70*ZF+A,42*ZF+B )-(300*ZF+A,42*ZF-+B ) 
LINE(70*ZF+A,53*ZF+B )-(300*ZF+A,53*ZF+B ) 
LINE(120*ZF+A,65*ZF+B )-(250*ZF+A,65*ZF+B ) 
LINE(182*ZF+A,65*ZF+B )-(182*ZF+A,91*ZF+B ) 
RETURN 


T9s 

REM signal construction battalion #79 

U=4:U1$="SIGNAL CONSTRUCTION BATTALION" :U2$="" 

CIRCLE(185*ZF+A,B-20*ZF), _ 
160*ZF,1,230*PI/180,310*PI/180 

LINE (130*ZF+A,45*ZF+B )-(130*ZF+A,100*ZF+B ) 

LINE (225*ZF+A,45*ZF+B )-(225*ZF+A,85*ZF+B ) 

LINE (225*ZF+A,85*ZF+B )-(250*ZF+A,65*ZF-+B ) 

LINE(250*ZF+A ,65*ZF+B )-(250*ZF+A,100*ZF+B ) 

RETURN 


80: 
REM feld ersatz battailon #80 
U=4:Ui$="FELD ERSATZ BATTALION" :U2$="" 
LINE(50*ZF+A,100*ZF+B )-(50*ZF+A,30*ZF+B ) 
LINE(50*ZF+A,30*ZF+B )-(110*ZF+A,30*ZF+B ) 
LINE(50*ZF+A,65*ZF+B )-(100*ZF+A,65*ZF+B ) 
LINE(120*ZF+A,100*ZF+B )-(120*ZF+A,30*ZF+B ) 
LINE(i120*ZF+A,30*ZF+B )-(180*ZF+A,30*ZF+B ) 
LINE(120*ZF+A,65*ZF+B )-(170*ZF+A,65*ZF+B ) 
LINE(120*ZF+A,100*ZF+B )-(180*ZF+A,100*ZF+B ) 
CIRCLE(225*ZF+A,77*ZF+B),25*ZF,1,0,PI 
LINE(200*ZF+A ,65*ZF+B )-(200*ZF+A,100*ZF+B ) 
CIRCLE(290*ZF+A,75*ZF+B),20*ZF,1,0,PI*3/2 
CIRCLE(290*ZF+A,91*ZF+B),_ 
20*ZF,1,180*P1I/180,90*PI/180 
RETURN 


Salk: 

REM engineer battalion #81 
U=4:U1$="ENGINEER BATTALION": U2$="" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A ,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
RETURN 
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Se 
REM armored engineer battalion #82 
U=4:U1S="ARMORED ENGINEER BATTALION": U2$="" 
CIRCLE (90*ZF+A,65*ZF+B), 
48*ZF,1,90*PI/180,270*PI/180 
CIRCLE (280*ZF+A, 65*ZF+B), 
48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A, 45*ZF+B )- (280*ZF+A, 45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF4+B ) 
LINE (90#*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF++B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
RETURN . 


83: 

REM engineer battalion #83 
U={4:U1S="ENGINEERING FERRY BATTALION": U2$="" 
CIRCLE(57*ZF+A,50*ZF+B),32*ZF,1,0,PI 
CIRCLE(121*ZF+A,50*ZF+B),32*ZF,1,PI,0 
CIRCLE(185*ZF+A,50*ZF+B),32*ZF,1,0,PI 
CIRCLE( 249*ZF+A,50*ZF+B),32*ZF,1,PI,0 
CIRCLE(313*ZF+A ,50*ZF+B),32*ZF,1,0,PI 

LINE (80*ZF+A,80*ZF+B )-(290*ZF+A,80*ZF+B ) 
LINE (80*ZF+A,80*ZF+B )-(S8O*ZF+A ,99*ZF+B ) 
LINE (180*ZF+A,80*ZF+B )-(180*ZF+A ,99*ZF+B ) 
LINE (290*ZF+A,80*ZF+B )- (290*ZF+A, 99*ZF+B ) 
RETURN 


84; 

REM engineer battalion (bridge layers) #84 
U=4:U1$="ENGINEER BATTALION": U2$="BRIDGE LAYERS" 
LINE (90*ZF+A,80*ZF+B )-( 280*ZF+A ,80*ZF+B ) 
LINE (90*ZF+A,80*ZF+B )-(90*ZF+A,99*ZF+B ) 
LINE (185*ZF+A,80*ZF+B )-(185*ZF+A,99*ZF+B ) 
LINE (280*ZF+A,80*ZF+B )-(280*ZF+A ,99*ZF+B ) 
LINE (110*ZF+A,55*ZF+B )-( 260*ZF+A,55*ZF+B ) 
LINE (110*ZF+A,40*ZF+B )-(260*ZF+A,40*ZF+B ) 
LINE (90*ZF+A,65*ZF+B )-(110*ZF+A,55*ZF+B ) 
LINE (260*ZF+A,40*ZF+B )-(280*ZF+A,30*ZF+B ) 
LINE (90*ZF+A,30*ZF+B )-(110*ZF+A,40*ZF+B ) . 
LINE (260*ZF+A ,55*ZF+B )-(280*ZF+A ,65*ZF+B ) 
RETURN 


Za 


S5 s 

REM support battalion #85 

U=4:U1$="SUPPORT BATTALION" :U2$="AIRBORNE DIVISION" 
CIRCLE(130*ZF+A,120*ZF+B), 

50*ZF,1,15*PI/180, 165*P1I/180 
CIRCLE(240*ZF+A, 120*ZF+B), 

50*ZF,1,15*PI/180, 165*PI/180 
LINE(178*ZF+A, 115*ZF+B )-(192*ZF+A,115*ZFB ) 
CIRCLE(150*ZF+A,60*ZF+B ), 

13*ZF,1,45*PI/1i80, 270*PI/180 
CIRCLE(150*ZF+A, 70*ZF+B ), 

13*ZF,1,225*P1I/180, 90*PI/180 
CIRCLE(180*ZF+A, 7O*ZF+B), 

TSX ZE i, 225*PI/180. 135*P1I/180 
LINE(172*ZF+A, 66*ZF+B )- (172*ZF+A, 85 *ZF+B ) 
CIRCLE( 213*ZF+A,70*ZF+B), 

13*ZF,1,180*PI/180, 340*PI/180 
LINE(200*ZF+A, 55*ZF+B )- (200*ZF+A, 70*ZF-+B ) 
LINE(192*ZF+A ,63*ZF+B )-(210*ZF+A,63*ZF+B ) 
RETURN 


86: 
REM support battalion #86 
U=4:U1$="SUPPORT BATTALION": U2$="" 
CIRCLE(150*ZF+A,60*ZF+B), 
13*ZF,1,45*PI/180, 270*P1I/180 
CIRCLE(150*ZF+A, 70*ZF+B ), 
13*ZF,1,225*PI/180, 90*P1I/180 
CIRCLE(180*ZF+A, 70*ZF+B), 
13*ZF,1,225*PI/180, 135*PI/180 
LINE(172*ZF+A, 66*ZF+B )- (172*ZF+A, 85*ZF+B ) 
CIRCLE( 213*ZF+A,70*ZF+B), 
13*ZF,1,180*PI/180, 340*P1I/180 
LINE(200*ZF+A, 55*ZF+B )- (200*ZF+A, 70*ZF+B ) 
LINE(192*ZF+A,63*ZF+B )-(210*ZF+A,63*ZF+B) 
RETURN 


S. fae 

REM supply and transportation battalion #87 
U=4:U1$="SUPPLY AND TRANSPORTATION BATTALION": U2$="" 
CIRCLE(180*ZF+A,65*ZF+B),70*ZF 

LINE (130*ZF+A,46*ZF+B )- (232*ZF+A, S4*ZF+B ) 
LINE(131*ZF+A,85*ZF+B )-(230*ZF+A, 46*ZF+B ) 

LINE (180*ZF+A ,37*ZF+B )-(180*ZF+A,93*ZF+B) 

LINE (110*ZF+A,65*ZF+B )-(250*ZF+A ,65*ZF+B ) 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 

RETURN 


228 


88: 
REM field arty battalion (mech division) #88 
U1i$="FIELD ARTILLERY BATTALION": U2$="MECH. DIVISION" 
U=4:CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B ) 
CIRCLE(90*ZF+A,65*ZF+B), _ 
48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),_ 
48*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 
LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )~(360*ZF+A,120*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
RETURN 


89: 

REM field arty battalion (¢AASLT division) #89 
U1$="FIELD ARTILLERY BATTALION": U2$="AASLT DIVISION" 
U=4:CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B ) 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE(145*ZF+A,20*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE( 225*ZF+A,20*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE(185*ZF+A,40*ZF+B )-(185*ZF+A,100*ZF+B ) 
LINE(145*ZF+A,100*ZF+B )-(225*ZF+A ,100*ZF+B ) 
RETURN 


LOW : 

REM military band #101 

U=5:U1S="MILITARY BAND": U2$="" 
CIRCLE(25*ZF+A,60*ZF+B),80*ZF,1,0,PI/2 
CIRCLE(185*ZF+A,60*ZF+B),80*ZF,1,PI,0 
CIRCLE( 345*ZF+A,60*ZF+B),80*ZF,1,P1/2,PI 
LINE(185*ZF+A,30*ZF+B )-(185*ZF+A,110*ZF+B ) 
LINE(140*ZF+A,30*ZF+B )-(140*ZF+A,70*ZF+B ) 
LINE(230*ZF+A,30*ZF+B )-( 230*ZF+A,70*ZF+B ) 
LINE(100*ZF+A,50*ZF+B )-(270*ZF+A,50*ZF+B ) 
RETURN 


Zo 


LO02: 
REM military police co #102 
U=5:U1$S$="MILITARY POLICE COMPANY":U2$="" 
CIRCLE(255*ZF+A,42*ZF+B), __ 
29*ZF,1,270*PI/180,90*PI/180 
LINE( 240*ZF+A,30*ZF+B )-(255*ZF+A,30*ZF+B ) 
LINE( 240*ZF+A ,54*ZF+B )-(255*ZF+A,54*ZEF+B ) 
LINE(80*ZF+A ,30*ZF+B )-(80*ZF+A ,100*ZF+B ) 
LINE(160*ZF+A,30*ZF+B )-(160*ZF+A,100*ZF+B ) 
LINE(240*ZF+A,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A ,30*ZF+B )-(120*ZF+A ,60*ZF+B ) 
LINE(120*ZF+A ,60*ZF+B )-(160*ZF+A,30*ZF+B ) 
RETURN 


103: 

REM chemical co #103 

U=5:U1$="CHEMICAL COMPANY": U2$="" 

CIRCLE (80*ZF+A,50*ZF+B),30*ZF,3 
PAINT(80*ZF+A,50*ZF+B),1,3 

CIRCLE (290*ZF+A,50*ZF+B),30*ZF,3 
PAINT(290*ZF+A ,50*ZF+B),1,3 

LINE (290*ZF+A,100*ZF+B )-(98*ZF+A ,40* ZF+B ) 
LINE (80*ZF+A,100*ZF+B )-(270*ZF+A,40*ZF+B ) 
RETURN 


104: 

REM cavalry troop #104 

U=5:U1$="CAVALRY TROOP": U2$="" 

CIRCLE(90*ZF+A,65*ZF+B), _ 
48*ZF,1,90*PI/180,270*PI/180 

CIRCLE( 280*ZF+A,65*ZF+B),_ 
48*ZF,1,270*PI/180,90*PI/180 

LINE (90*ZF+A,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE(90*ZF+A,85*ZF+B )-(280*ZF+A,85*ZF+B ) 

LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

RETURN 


150% : 

REM military intelligence company #105 
U=5:U1$="MILITARY INTELLIGENCE COMPANY" :U2$="" 
LINE(220*ZF+A ,30*ZF+B )-( 260*ZF+A,30* ZF+B ) 
LINE( 220*ZF+A ,100*ZF+B )-(260*ZF+A ,100*ZF+B ) 
LINE(80*ZF+A,30*ZF+B )-(80*ZF+A,100*ZF+B ) 
LINE(160*ZF+A ,30*ZF+B )-(160*ZF+A ,100*ZF+B ) 
LINE( 240*ZF+A ,30*ZF+B )-(240*ZF+A,100*ZF+B ) 
LINE (80*ZF+A,30*ZF+B )-(120*ZF+A ,60*ZF+B ) 
LINE(120*ZF+A ,60*ZF+B )-(160*ZF+A,30*ZF+B ) 
RETURN 


230 


106: 

REM hhq corps command #106 
U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2S="CORPS COMMAND" 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,30*ZF+B),1,BF 
LINE(140*ZF+A,36*ZF+B )-(160*ZF+A,43*ZF+B ) 
LINE(160*ZF+A ,36*ZF+B )-(140*ZF+A,43*ZF+B ) 
LINE(175*ZF+A ,36*ZF+B )-(195*ZF+A,43*ZF+B ) 
LINE(195*ZF+A,36*ZF+B )-(175*ZF+A,43*ZF+B ) 
LINE( 210*ZF+A,36*ZF+B )-(230*ZF+A,43*ZF+B ) 
LINE( 210*ZF+A ,43*ZF+B )-(230*ZF+A-,36*ZF+B ) 
RETURN 


107: 
REM hhq corps maintainance command #107 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS MAINTAINANCE COMMAND" 
CIRCLE(50*ZF+A,65*ZF+B), 
OORZE a, 270*PI/180, 90*PI/180 
CIRCLE(320*ZF+A, 65*ZF+B), 
50*ZF,1,90*PI/180,270*P1I/180 
LINE (100*ZF+A, 65*ZF+B )-(270*ZF+A,65*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


108: 

REM corps signal command #108 
U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2S="CORPS SIGNAL COMMAND" 

LINE (10*ZF+A,10*ZF+B )-(185*ZF+A,80*ZF+B ) 
LINE(185*ZF+A ,50*ZF+B )-(360*ZF+A ,120*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(185*ZF+A,50*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A ,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37* ZF+B ) 
RETURN 


109: 

REM. hhq arty command #109 

U=5 :U1S="HEADQUATERS AND mee TERS Coy 
U2S="ARTILLERY COMMAND" 

CIRCLE (185*ZF+A,65*ZF+B),30*ZF,3 
PAINT(185*ZF+A,65*ZF+B),1,3 
LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B),1,BF 
. LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZEF+B ) 
RETURN 


ao 


110: 

REM hhq corps ada command #110 

U=5 :U1$="HEADQUATERS AND HEADQUARTERS CO" 

U2$="CORPS ADA COMMAND" 

CIRCLE(186*ZF+A,175*ZF+B),_ 
220*ZF,1,39*PI/180,142*PI/180 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 

LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 

LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 

RETURN 


111: 

REM hhq corps engineer command #111 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS ENGINEER COMMAND" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (9O0*ZF+A ,55*ZF+B )-(90*ZF+A ,75*ZF+B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75 *ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZEF-+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZE+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


Tae, ¢ 

REM hhq corps medical command #112 

U=5 :U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS MEDICAL COMMAND" 
LINE(10*ZF+A,65*ZF+B )-(360*ZF+A ,65*ZF+B ) 
LINE(185*ZF+A ,50*ZF+B )-(185*ZF+A,120*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZEF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


Le3"% 

REM hhq corps supply command #113 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="CORPS SUPPLY COMMAND" 

LINE (10*ZF+A,100*ZF+B )-( 360*ZF+A,100*ZF+B ) 
LINE(10*ZF+A ,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A ,28*ZF+B)-(175*ZF+A,37*ZF++B ) 
RETURN 


232 


L Pa: 
REM hhq aviation brigade #114 
U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2S="AVIATION BRIGADE" 
Cee GLE LOOMZF+A,65*ZF+B),_ 
35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B),_ 
35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A ,52*ZF+B )-(250*ZF+A,78*ZF+B ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
PAINT(100*ZF+A,65*ZF+B),1 
PAINT(270*ZF+A,65*ZF+B),1 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A ,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


4 5-3 

REM hhq division command #115 
U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2$="DIVISION COMMAND" 
LINE(10*ZF+A,10*ZF+B )-( 360*ZF+A,25*ZF+B),1,BF 
LINE(150*ZF+A,36*ZF+B )-(170*ZF+A ,42*ZF+B ) 
LINE(170*ZF+A,36*ZF+B )-(150*ZF+A,42*ZF+B ) 
LINE( 200*ZF+A,36*ZF+B )-(220*ZF+A ,42*ZF+B ) 
LINE( 220*ZF+A,36*ZF+B )-(200*ZF+A,42*ZF+B ) 
RETURN 


wi 6.2 

REM hhq mountaineer brigade #116 
U=5:U1S="HEADQUATERS AND HEADQUARTERS CO" 
U2S="MOUNTAINEER BRIGADE" 

LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE (10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B),,B 
LINE(10*ZF+A ,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A ,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


233 


dles. 
REM hhq airborne brigade #117 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="AIRBORNE BRIGADE" 
CIRCLE(130*ZF+A,120*ZF+B), 
50*ZF,1,15*PI/1i8s0, i165*PI/180 
CIRCLE(240*ZF+A, 120*ZF+B), 
50*ZF,1,15*PI/180, 165*PI/180 
LINE(178*ZF+A, 115*ZF+B )-(192*ZF+A,115*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37 *ZF+B ) 
GOSUB u4 
RETURN 


118: 
REM hhq mech brigade #118 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="MECH BRIGADE" 
CIRCLE(90*ZF+A,70*ZF+B), 
48*ZF,1,90*PI/180, 270*PI/180 
CIRCLE(280*ZF+A, 70*ZF+B), 
48*ZF,1,270*PI/1i80, 90*PI/180 
LINE (90*ZF+A, 50*ZF+B )- (280*ZF+A, 50*ZF+B ) 
LINE (90*ZF+A,90*ZF+B )-(280*ZF+A ,90*ZF+B ) 
GOSUB u4 
LINE(10*ZF+A,10*ZF+B )-( 360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZE+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A, 37*ZF+B ) 
RETURN 


119: 
REM hhq armd brigade #119 
U=5:U1$S$="HEADQUATERS AND HEADQUARTERS CO" 
U2Z2$="ARMORED BRIGADE" 
CIRCLE(90*ZF+A ,65*ZF+B ), 

. 48*ZF,1,90*PI/180, 270*PI/180 
CIRCLE(280*ZF+A, 65*ZF+B ), a 

48*ZF,1,270*PI/180,90*PI/180 

LINE (90*ZF+A,45*ZF+B )-(280*ZF+A ,45*ZF+B ) 
LINE (90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(175*ZF+A,28*ZF+B )-(195*ZF+A,37*ZF+B ) 
LINE(195*ZF+A,28*ZF+B )-(175*ZF+A,37*ZF+B ) 
RETURN 


234 


LQO + 
REM bhq@ air cavalry combat brigade #120 
U=5:U1$="HHQ AIR CAVALRY COMBAT BRIGADE":U2$="" 
CIRCLE(100*ZF+A,65*ZF+B), _ 
35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B),_ 
35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,52*ZF+B )-(250*ZF+A,783*ZFB ) 
LINE(120*ZF+A,78*ZF+B )-(250*ZF+A,52*ZF+B ) 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
PAINT(100*ZF+A ,65*ZF+B),1 
PAINT(270*ZF+A ,65*ZF+B),1 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,30*ZF+B),1,BF 
LINE(170*ZF+A,36*ZF+B )-(190*ZF+A,42*ZEF+B ) 
LINE(190*ZF+A ,36*ZF+B )-(170*ZF+A,42*ZF+B ) 
RETURN 


128: 

REM ew company #121 

U=5:U1$="EW COMPANY": U2S$="" 

LINE (10*ZF+A,120*ZF+B )-(185*ZF+A,50*ZF+B ) 
LINE(185*ZF+A ,80*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(185*ZF+A,50*ZF+B ) 
RETURN 


Lae: 

REM signal company #122 

U=5:U1S="SIGNAL COMPANY":U2$="" 

LINE (10*ZF+A,10*ZF+B )-(185*ZF+A ,80*ZF+B ) 
LINE(185*ZF+A,50*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(185*ZF+A,80*ZF+B )-(185*ZF+A ,50*ZF-+B ) 
RETURN 


Lars : | 

REM fernspaeh co #123 

U=5:U1$S$="FERNSPAEH KOMPANIE":U2$="" 
LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 
LINE(50*ZF+A ,65*ZF+B )-(320*ZF+A ,65*ZF+B ) 
LINE( 280*ZF+A ,45*ZF+B )-(320*ZF+A ,65*ZF+B ) 
LINE( 280*ZF+A ,85*ZF+B )-(320*ZF+A ,65* ZF+B ) 
RETURN 


235 


124: 

REM armored engineer company #124 

Ui$S$="ARMORED ENGINEER COMPANY":U2$="" 

CIRCLE(90*ZF+A,65*ZF+B),_ 
48*ZF,1,90*PI/180,270*PI/180 

CIRCLE( 280*ZF+A ,65*ZF+B), _ 
48*ZF,1,270*PI/180,90*PI/180 

LINE( 90*ZF+A ,45*ZF+B )-(280*ZF+A,45*ZF+B ) 

LINE(90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-( 280*ZF+A,55*ZF+B ) 

LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 

LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 

LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 

RETURN 


Za: 

REM adjudant general #125. 
U=5:U1$S$="ADJUDANT GENERAL": U2$="" 
LINE(70*ZF+A,100*ZF+B )-(120*ZF+A,30*ZF+B ) 
LINE(120*ZF+A,30*ZF+B )-(170*ZF+A,100*ZF+B ) 
LINE(95*ZF+A,65*ZF+B )-(145*ZF+A,65*ZF+B ) 
CIRCLE(240*ZF+A,85*ZF+B),40*ZF,1,PI,2*PI 
CIRCLE(240*ZF+A,50*ZF+B),40*ZF,1,10/180*PI,PI 
LINE( 200*ZF+A ,50*ZF+B )-( 200*ZF+A,85*ZF+B ) 
LINE( 280*ZF+A,65*ZF+B )-( 280*ZF+A,85*ZF+B ) 
LINE( 240*ZF+A,65*ZF+B )-( 280*ZF+A,65*ZF+B ) 
RETURN 


LZo.: 

REM engineer co #126 

U=5:Ui1$="ENGINEER COMPANY":U2$="" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B),,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN 


236 


12%; 

REM chemical co #127 

U=5:U1S="CHEMICAL COMPANY":U2$="" 

CIRCLE (80*ZF+A,50*ZF+B),30*ZF,3 
PAINT(80*ZF+A,50*ZF+B),1,3 

CIRCLE (290*ZF+A,50*ZF+B),30*ZF,3 
PAINT(290*ZF+A,50*ZF+B),1,3 

LINE (290*ZF+A,100*ZF+B )-(98*ZF+A,40*ZF+B ) 
LINE (80*ZF+A,100*ZF+B )-(270*ZF+A,40*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B),,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
PAINT(165*ZF+A,114*ZF+B ) 

RETURN 


vA8% 

REM support co #128 : 

U=5:U1$="SUPPORT COMPANY": U2$="" 
LINE(10*ZF+A,100*ZF+B )-(360*ZF+A ,120*ZF+B ),1,BF 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B),,B 
LINE(152*ZF+A,100*ZF+B )-(182*ZF+A,80*ZF+B ) 
LINE( 212*ZF+A,100*ZF+B )-(182*ZF+A,80*ZF+B ) 
PAINT(165*ZF+A ,94*ZF+B ) 

RETURN 


129 ; 

REM tragtier co #129 

U=5:U1$="TRAGTIER KOMPANIE":U2$="" 
LINE(70*ZF+A,55*ZF+B )-(300*ZF+A,55*ZF+B ) 
LINE(70*ZF+A,85*ZF+B )-(100*ZF+A,55*ZF+B ) 
LINE(100*ZF+A,55*ZF+B )-(130*ZF+A,85*ZF+B ) 
LINE( 300*ZF+A ,85*ZF+B )-(270*ZF+A ,55*ZF+B ) 
LINE( 270*ZF+A,55*ZF+B )-(240*ZF+A ,85*ZF+B ) 
LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B),,B 
LINE(152*ZF+A,120*ZF+B )-(182*ZF+A,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A, 100*ZF+B ) 
PAINT(165*ZF+A, 114*ZF+B ) 

RETURN 
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130: 

REM antitank co #130 

U=5:U1$="ANTITANK COMPANY":U2$="" 
LINE(10*ZF+A,120*ZF+B )-(185*ZF+A,10*ZF+B ) 
LINE(185*ZF+A,10*ZF+B )-(360*ZF+A ,120*ZF+B ) 
LINE(145*ZF+A,60*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE(185*ZF+A ,40*ZF+B )-(225*ZF+A ,60*ZF+B ) 
LINE(145*ZF+A ,80*ZF+B )-(185*ZF+A,60*ZF+B ) 
LINE(185*ZF+A,60*ZF+B )-(225*ZF+A,80*ZF+B ) 
LINE (10*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B),,B 
LINE(152*ZF+A ,120*ZF+B )-(182*ZF+A ,100*ZF+B ) 
LINE( 212*ZF+A,120*ZF+B )-(182*ZF+A ,100*ZF+B ) 
PAINT(165*ZF+A ,114*ZF+B ) 

RETURN 


od: 
REM airborne mortar co #4131 
U=5:U1$="AIRBORNE MORTAR COMPANY": U2$="" 
CIRCLE(130*ZF+A,120*ZF+B), | 
50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120*ZF+B), _ 
50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A ,115*ZF+B )-(192*ZF+A,115*ZF+B ) 
CIRCLE(182*ZF+A,80*ZF+B),25*ZF 
LINE(182*ZF+A,25*ZF+B )-(182* ZF+A,70* ZF+B ) 
LINE(152*ZF+A,50*ZF+B )-(212*ZF+A,50*ZF+B ) 
LINE(152*ZF+A,60*ZF+B )-(212*ZF+A,60*ZF+B ) 
LINE(152*ZF+A,35*ZF+B )-(182*ZF+A,25*ZF+B ) 
LINE(182*ZF+A ,25*ZF+B )-(212*ZF+A,35*ZF+B ) 
RETURN 


132; 
REM airborne engineer co #132 
U=5:U1$="AIRBORNE ENGINEER COMPANY":U2$="" 
CIRCLE(130*ZF+A ,120*ZF+B),_ 
50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120*ZF+B),_. 
50*ZF,1,15*PI/180,165*P1I/180 
LINE(178*ZF+A,115*ZF+B )-(192*ZF+A,115*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A ,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A,75*ZF+B ) 
RETURN 
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os": 

REM airborne medical co #1383 

U=5:U1S="AIRBORNE MEDICAL COMPANY":U2$="" 

CIRCLE(130*ZF+A ,120*ZF+B ), 
50*ZF,1,15*P1I/180, 165*P1I/180 

CIRCLE(240*ZF+A, 120*ZF+B), 

HOMeEZE ,1, 15*PI/180, 165*P1I/180 
LINE(178*ZF+A, 115*ZF+B )-(192*ZF+A,115*ZF+B ) 
LINE (10*ZF+A,65*ZF+B )-(360*ZF+A,65*ZF+B ) 
LINE(185*ZF+A,10*ZF+B )-(185*ZF+A, i ill 
RETURN 


134: 
REM airborne support co #134 
U=5:U1S$="AIRBORNE SUPPLY COMPANY":U2$="" 
CIRCLE(130*ZF+A,90*ZF+B), 

FOMZE..1,15*P1/180, 165*PI/180 
CIRCLE(240*ZF+A, 9O0*ZF+B ), 

50*ZF,1,15*P1I/180, 165*P1I/180 
LINE(178*ZF+A, S5*ZF+B )- (192*ZF+A, 85*ZF+B ) 
LINE (10*ZF+A,100*ZF+B )- (360*ZF+A, 120*ZF+B),1,BF 
RETURN 


nao: 

REM cavalry troop #135 

U=5:U1$="CAVALRY TROOP":U2$="" 

CIRCLE(90*ZF+A,65*ZF+B ), 
48*ZF,1,90*PI/180, 270*P1I/180 

CIRCLE(280*ZF+A, 65*ZF+B ), _ 
48*ZF,1,270*P1I/180,90*PI/180 

LINE( 90*ZF+A,45*ZF+B )-(280*ZF+A ,45*ZF+B ) 

LINE( 90*ZF+A,85*ZF+B )-(280*ZF+A ,85*ZF+B ) 

LINE(10*ZF+A,120*ZF+B )-(360*ZF+A,10*ZF+B ) 

CIRCLE(130*ZF+A, 120*ZF+B), 
50*ZF,1,15*P1I/180, 165*PI/180 

CIRCLE(240*ZF+A, 120*ZF+B), 
50*ZF,1,15*PI/180, 165*PI/180 

LINE(178*"ZF+A, 115*ZF+B )-(192*ZF+A,115*ZF+B ) 

RETURN 
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LSio : 
REM liaison squad #136 
U=5:U1$="AVIATION LIAISON": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B),_ 
35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B), _ 
35*ZF,1,236*PI/180,124*P1I/180 
LINE(120*ZF+A,87*ZF+B )—-(250*ZF+A ,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B ) ,1 
PAINT(270*ZF+A,100*ZF+B ) ,1 
LINE(140*ZF+A,75*ZF+B )-(230*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(140*ZF+A,75*ZEF+B ) 
LINE(185*ZF+A ,48*ZF+B )-(230*ZF+A,75*ZF+B ) 
LINE(140*ZF+A,75*ZF+B )-(230*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(140*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(230*ZF+A,75*ZF+B ) 
CIRCLE(80*ZF+A ,40*ZF+B ),30*ZF 
CIRCLE( 290*ZF+A,40*ZF+B),30*ZF 
LINE(110*ZF+A,40*ZF+B )-( 260*ZF+A,40*ZF+B ) 
RETURN 


des: 
REM liaison squad #137 
U=5:U1$="AVIATION LIAISON" :U2$="" 
CIRCLE(100*ZF+A ,100*ZF+B),_ 
35*ZF,1,56*PI/180,304*P1I/180 
CIRCLE(270*ZF+A,100*ZF+B),_ 
35*ZF,1,236*P1I/180,124*P1I/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZF+B ) 
PAINT(100*ZF+A,100*ZF+B),1 
PAINT(270*ZF+A,100*ZF+B),1 
LINE(140*ZF+A,75*ZF+B )-(230*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(140*ZF+A,75*ZF+B ) 
LINE(185*ZF+A,48*ZF+B )-(230*ZF+A,75*ZF+B ) 
PAINT(185*ZF+A,60*ZF+B ),1 
CIRCLE(80*ZF+A,40*ZF+B),30*ZF 
CIRCLE(290*ZF+A,40*ZF+B ),30*ZF 
LINE(110*ZF+A,40*ZF+B )-( 260*ZF+A,40*ZF+B ) 
RETURN 
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PSs : 
REM flugplatzkommandantur #138 
U=5:U1$="FIELD AIRPORT": U2$="" 
CIRCLE(100*ZF+A,100*ZF+B), __ 
35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B),_ 
35*ZF,1,236*PI/180,124*PI/180 
LINE(120*ZF+A,87*ZF+B )-(250*ZF+A,113*ZF+B ) 
LINE(120*ZF+A,113*ZF+B )-(250*ZF+A,87*ZFB ) 
PAINT(100*ZF+A,100*ZF+B),1 
PAINT(270*ZF+A,100*ZF+B),1 
LINE(182*ZF+A,15*ZF+B )-(122*ZF+A,35*ZF+B ) 
LINE(182*ZF+A,15*ZF+B )-(242*ZF+A,35*ZF+B ) 
LINE(150*ZF+A,40*ZF+B )-(150*ZF+A,80*ZF+B ) 
LINE(150*ZF+A,65*ZF+B )-(220*ZF+A,40*ZF+B ) 
LINE(162*ZF+A,60*ZF+B )-(220*ZF+A,80*ZF+B ) 
RETURN 


139: 

REM brigade maintenance co #139 

U=5 :U1S="MAINTAINANCE COMPANY": U2$="" 

Pie CLEQVS0*ZF+A,65*ZF+B),_ 
50*ZF,1,270*PI/180,90*PI/180 

CIRCLE( 320*ZF+A,65*ZF+B),_ 
50*ZF,1,90*PI/180,270*PI/180 

LINE (100*ZF+A,65*ZF+B )-(270*ZF+A,65*ZF+B ) 

RETURN 


140: 

REM brigade supply co #140 

U=5:U1$="SUPPLY COMPANY":U2$="" 

LINE (10*ZF+A,100*ZF+B )-(360*ZF+A,100*ZF+B ) 
RETURN 


141: 

REM antitank co #141 

U=5:U1$="ANTITANK COMPANY": U2$="" 
LINE(10*ZF+A,120*ZF+B )-(185*ZF+A,10*ZF+B ) 
LINE(185*ZF+A,10*ZF+B )-(360*ZF+A,120*ZF+B ) 
LINE(145*ZF+A,60*ZF+B )-(185*ZF+A,40*ZF+B ) 
LINE(185*ZF+A,40*ZF+B )-(225*ZF+A,60*ZF+B ) 
LINE(145*ZF+A,80*ZF+B )-(185*ZF+A,60*ZF+B ) 
LINE(185*ZF+A,60*ZF+B )-(225*ZF+A,80*ZF+B ) 
RETURN 
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142. 

REM engineer company #142 
U=5:U1$S$="ENGINEER COMPANY": U2$="" 

LINE (90*ZF+A,55*ZF+B )-(280*ZF+A,55*ZF+B ) 
LINE (90*ZF+A,55*ZF+B )-(90*ZF+A,75*ZF+B ) 
LINE (180*ZF+A,55*ZF+B )-(180*ZF+A,75*ZF+B ) 
LINE (280*ZF+A,55*ZF+B )-(280*ZF+A, 75*ZF+B ) 
RETURN 


143: 

REM wehrgericht #1483 
U=0:U1$="wehrgericht":U2$="" 

CIRCLE( 240*ZF+A,85*ZF+B),40*ZF,1,PI,2*PI 
CIRCLE( 240*ZF+A,50*ZF+B),40*ZF,1,10/180*PI,PI 
LINE( 200*ZF+A,50*ZF+B )-(200*ZF+A ,85*ZF+B ) 
LINE( 280*ZF+A,65*ZF+B )-(280*ZF+A,85* ZF+B ) 
LINE( 240*ZF+A,65*ZF+B )-(280*ZF+A,65* ZF+B ) 
LINE( 50*ZF+A,33*ZF+B )-(80*ZF+A,103*ZF+B ) 
LINE(80*ZF+A,103*ZF+B )-(110*ZF+A,65*ZF+B ) 
LINE(110*ZF+A,65*ZF+B )-(140*ZF+A,103*ZF+B ) 
LINE(140*ZF+A,103*ZF+B )-(170*ZF+A,33*ZF+B ) 
RETURN 


144: 

REM hhq infantry brigade #144 
U=5:U1$="HEADQUATERS AND HEADQUARTERS CO" 
U2$="INFANTRY BRIGADE" 

GOSUB u4 

LINE(10*ZF+A,10*ZF+B )-(360*ZF+A,25*ZF+B),1,BF 
LINE(170*ZF+A,36*ZF+B )-(190*ZF+A,42*ZF+B ) 
LINE(190*ZF+A,36*ZF+B )-(170*ZF+A,42*ZF+B ) 
RETURN 
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pomnmece Code Program INSYSDAT 


program INSYSDAT 


input data for arbitrary item within arbitrary 
system mnequired information: 
description, 
replacement level, 
redundancy, 


number per superset, 
repair level, 
location in overall system. 


JUNE 1987 


stock number, 
mise prace,MIBE, 


HHHHHHHH HM HH MH HHH HHH MH HH MH HR HNH MH HM HH HHH HHH MH HHH HH HH 


% 


Variable Directory 


4 


de HH HH HHH MMMM HHH HHH HMM HMM HH MH HH MH HHH HHH HHH HHH HHH 


** AS(x) 
** Ax 
ES 

% EF 

% * FZ 

+ T$ 

** ML 

% MT 

~ 6 MIBE 
** NAMS 
% NE 
NNS 

% * P 

“e REDUND 
** PL 
NNS$ 
me TYPE 


auxiliary string variable 
variable for rand. 
auxiliary string variable 
failure flag 

data set counter 

item description 

repair level 

repair time 

mean time between failures 
string variable for item file 
number of items 

national stock number 

item price 
redundancy 
replacement level 
national stock number 
item type 
auxiliary variable 


4 


file* 


* 
4 
* 
4 
4 
* 
4 
% * 
% 
*% * 
# 
* 
% 
% 
*% 
% 


dt HO HE HH HHH HMMM HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HOM OM 
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REM 


REM oe HE EOE EOE EOE EE HE OE EOE OE 
REM * Start of Main Program ¥* 
REM HHHHHHHHHH HHH HK HH HHH HH HHH OK 
REM 

DIM A$(10) 


A$(0)="No Repair":A$(2)="Organ. Maintainance" 
A$(3)="Direct / General Support":A$(4)="Depot" 
start: 

CLS: F=0 

LOCATE 1,1 

PRINT "Item Type (1=System,2=Component,3...8=Subcomp,"; 
INPUT "9=Part)";TYPE 

IF (TYPE<i OR TYPE »>9) THEN start 

LOCATE 2,1:INPUT "National Stock Number :";NN$ 
GOSUB dupl:IF F=3 OR F=4 THEN start 

CLS: LOCATE 1,1:PRINT "National Stock Number :";NN$ 
LOCATE 3,1:INPUT "Item Description :";I$ 

LOCATE 4,1:INPUT "Unit Price in US Dollars : $";P 
IF TYPE=1 THEN contl 


LOCATE 5,1:INPUT "How many of these Items : ";NC 
LOCATE 6,1:INPUT "MTBF ( assumed ) in Days: ";MTBF 
LOCATE 7,,,1 

PRINT "Replacement Level "; 

INPUT "(2=Org Mn,3=DS/GS,4=Depot) : ";RL 


IF TYPE<9 THEN LOCATE 8,1: _ 
PRINT "Repair Level "; 
INPUT "(0=no,2=Org Mn,3=DS/GS,4=Depot) : ";ML 
IF TYPE=9 THEN 
LOCATE 8,1:ML=0 
PRINT "Repair Level (0O=no,2=Org"; 
PRINT " Mn,3=DS/GS,4=Depot) : ";ML 
END IF 
IF (ML<RL AND ML>O) THEN F=1:_ 
GOSUB errflag:GOTO start 
LOCATE 9,1 
INPUT "MTTR (Repair/Replace) in Hours: ";MTTR 
REM LOCATE 10,1:_ 
REM INPUT "Redundancy ; “sredund 
REDUND=1 >:REM default 


conetl: 

CLS 

PRINT "Type : ue 

IF TYPE=1 THEN PRINT"System":GOTO contd2 

IF TYPE=2 THEN PRINT"Component":GOTO cont2 
IF TYPE=9 THEN PRINT"Part":GOTO cont2 
PRINT"Subcomponent" 
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cemtc2: 

PRINT "National Stock Number >; "sNNS 
PRINT "Item Description oe LS 
PRINT "Unit Price in US Dollars :$"; 
PRINT USING " ######.##";P 

IF TYPE=1 THEN cont3 


PRINT "Number of items o's NC 

PRINT "MTBF ( assumed ) =e | MITBES "days" 
PRINT "Replacement Level Aor ) 
PRINT "Repair Level > "2s AS(ML) 


PRINT "MTTR (replace) a 
PRINT USING "####.#4";:MTTR::PRINT " hours" 


rem PRINT "Redundancy > "s;REDUND 
eont3: 
LOGATE 24,1 
PRT Whee eH Mitr les COmmectm 8 ly) tf)": 
INPUT " HH HM HMMM ES . 


IF (ES="N" OR ES="n") THEN GOTO start 
IF (E$S="Y" OR ES$="y") THEN GOSUB subwrite:GOTO cont4 
GOTO cont3 


cont4: 
meoe POCATE 15,15:INPUT “another entry ?";E$ 
IF (E$S="y" OR ES="Y") THEN start 


CLS: END 

REM 

REM 9 Ee 1 EE EE EE HH HHH 
REM = End of Main Program * 
REM He 94 9 HE 1G 9 EO Ee EE Ee 


REM MHHRHHHHHHHMHRHMMHRH HHH MHRH HHH HMRHHHHRHHRMRHRHMHMHHHHRHHH HH HH HM HHH 
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REM 
REM subroutine write data to random access file 
REM 
subwrite: 
REM 
OPEN "R",1,NAMS,60 
FIELD#1,1 AS A1$,2 AS A2$,16 AS A8$,20 AS A4$, 
8 AS A5$,5 AS A6$,1i AS A7$,1 AS A8$,_ 
5 AS A9$,1 AS ARS 
LSET A1$=RIGHTS(STRS(TYPE),1) 
LSET A2$=RIGHT$(STRS$(NC),2) 
LSET A3S$=NN$ 
LSET A4$=I1$ 
LSET A5$=RIGHTS$(STRS$(P), 8) 
LSET A6$=RIGHTS$(STR$(MTBF ), 8 ) 
LSET A7$=RIGHT$(STRS$(RL),1) 
LSET A8$=RIGHT$(STRS$(ML),1) 
LSET A9$=RIGHTS$(STRS$(MTTR),5) 
LSET AR$=RIGHT$(STRS$(REDUND ),1) 
PUT#1,FZ 
CLOSE #1 
RETURN 
REM 
REM HE 2E HE 34 94 9E HE 9G 94 9G 9G EE EE 9 9G EE EE DE EE Oe OE Oe Ee 0 EE HH HH HHH HHH HH HH HK 
REM 
errflag: 
REM soubroutine errorhandling 
REM 
CLS: LOCATE 15,15 
IF F=1 THEN_ 
PRINT "input error: repair level invalid":GOTO contd 
IF F=3 THEN _ 
PRINT "input error: item already stored":GOTO contd 
IF F=4 THEN — 
PRINT “input error: number of items exceeds maximum" 
COME -; 
LOCATE 20,18:PRINT “press any key to continue" 
E$=INPUT$(1 ) 
RETURN 
REM 


REM ._  2€ 2€ 2€ 26 26 96 26 9 96 96 96 96 26 96 DE DE EE DE DE DE EE OE OE HE HE HE HE 2 OE DE OE EE HE HE EE EE EE EE EE 
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REM 
REM subroutine check if item is already stored 
REM 
dupl: 
REM 
ie PYPE>1 THEN LOCATE 5,1: __ 
PRINT “belongs to what item "; 
INPUT "(next level stocknumber): ";NAM$ 
Pera rte &,1:FOR Z=1 TO 78:PRINT " "3;:NEXT: PRINT 
IF TYPE=1 THEN NAMS=NNS$ 
NAMS=LEFTS(NAMS, 4 )+RIGHTS(NAMS , 4)+"."+MIDS$(NAMS ,9,3) 
OPEN "R",1,NAMS ,60:FZ=0 
FIELD#1,1 AS Ai$,2 AS A2$,16 AS A3$,20 AS A4$, _ 

8 AS A5$,5 AS A6$,1i AS A7$,1 AS A8$,_ 

5 AS A9$,1 AS ARS 
FOR X=i TO 100 

GET#1 ,X : 
IF MID$(A3$,5,1)="-"THEN FZ=FZ+1: _ 
IF A3$=NN$ THEN F=3:GOSUB errflag:GOTO cont6 

NEXT X 
eonto6: 
FZ=FZ+1i:IF FZ>95 THEN F=4:GOSUB errflag 
CLOSE#1: RETURN 
REM 


REM dE HE HE HE HE DE HE DE DE FE FE HEE HE DE FE 1 DE EE HE HE DE HEE HE DE HE 3 DE EE EOE OE OE OE EOE OE OE OE OE OH OE OE OE OE OHO 
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source Code Program ESTIMATE 


program ESTIMATE AUGUST 1987 
This program simulates SAMPSIZE failures for a 
maximum of 500 systems in a selectable major 

unit simultaneously. It requires access to the 
major unit data, the system distribution data and 
the system data. 

Output is the expected failure distribution within 


the selected major unit in terms of consumed items, 
used maintenance capabilities and system downtimes. 


If the number of systems is greater than 2000, 
the model is scaled. 


HHHHHHHHRHHHHHHHMHHHHHMHHHHHHMHHHMHHHKHHNHHHHHHHHH HHH HH HH HH 


pas Variable Directory ener 
HMHHHHHHHHHHHHHMHMHMHHHHHHHHHHHHKHHHHHHHHHHHH HH HH HHH HH HOH OK 
eM A >; auxiliary variable * 4 
** AS >; auxiliary stringvarible ux 
** Ax$S : fieldvar.’s for random acc. file ** 
** ADMIN(a) >; admin del. time level a distr. b** 
** AVAIL > average system availability eH 
ans ; auxiliary variable 1 
** BS(x) : fieldvariables for file "001" ie 
ae >; auxiliary variable 22 
** C$(x) : fieldvariables for file "004" x 
te COST >; cost — 
** COST(x) : cost spent on system x % 
** COUNT ;: counting variable up to SAMPSIZE ** 
** CPROB(x) ; cumulative failure prob. of item x* 
Ai : auxiliary variable — 
sees DT. >; auxiliary variable — 
** DAYHOURS- : workhours per day ne 
** DELSD ; delay std. dev. in &% of mean alia 
** DIST(a,b) : distribution of delay times ux 
** DOF : degr. of freedom (GAMMA distrib. )** 
** DOWN >; system downtime Ro 
** DOWN(x) >: sum of delay times on level b HH 
Ba ; storage for time random variables** 
ne Se auxiliary stringvariable a 
** ELTIME elapsed time for sim in weeks gle 
ne Tex current exponential r.n. Be 
** EX(x) failure time system x : * 
oe error flag Bo 
x* F(x) auxiliary array ux 
xe FS auxiliary stringvariable ux 
ak. Fal flag variable she 
** FHS system description ola 
me auxiliary variable — 
woe HY) auxiliary pointer it 
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REM 
REM 


REM 
REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


REM 
REM 
REM 
REM 
REM 
REM 


*% 
% * 
% # 
% # 
% 
% 
*% * 
% # 
* 
% * 
% # 
% * 
% * 
% # 
% * 
% # 
% # 
% * 
% * 
% * 
* 
% * 
* * 
% #* 
% 
% 
% * 
% # 
% # 
% * 
% * 
% * 
% # 
% # 
% 
% *# 
% # 
% 
% # 
% * 
% # 
% 
% 
% 
% # 
% 
*% 
* #* 
% # 
% # 
* * 


HS$(x) 
HEADS(x) 
I 

I$ 

LT (mm) 
ITEMS 

JS 

L 

LABOR 
LABOR(x) 
LAMBDA 
LAMBDA(x ) 
LAMBDAS 
LEVEL 

iL, 

M 
MTTIME(x) 
MTTR 
MU(a,b) 
MULT =. 
N 

NS 

Nx 

NAMS 
NI(x) 
NO(x) 
NULLS 

OSs 

P 

Pi 

PC(x) 
PE. 
PERNUM 
PI 
POINTER(x) 
PROB(x) 
PS 

Q 

QS : 
REPDIST 
REPLCLVL 
REPSD 
RES 

RN 

SS 
SAMPSIZE 
SDOWN(x ) 
SGLSSCST 
SIGMA 
SPARECST 
SPENT 


pointers within item files pa 
manpower requ. level a item b na 
counting var. for # of failures ** 
auxiliary stringvariable — 
# of systems per major unit x n # 
fieldvariable for file "001" — 
fieldvariable for file "001 es 
aaxibary variable Se 
labor, used to bring system up a 
workhours used on system x ae 
failure rate of item % Ht 
failure rate of subitem ian 
failure rate of overall system i 
pointer for maintenance level — 
ower linm@tis for uniform distrib.** 
auxiliary variable — 
Mepaiftime for item x ee 
mean time to repair — 
mean of distribution a 
scaling factor for simulation ws 
counting var. for # of systems mH 
auxiliary variable — 
normally distr. random numbers a 
filename of current item file e 
# of systems in major unit x Hn 
system number * # 
auxiliary string variable ii 
heft mamgin for print out — 
auxiliary pointer eas 
ptr to next active time we 
per toenextractive time ag 
peamter to next entry a 
number of 4 week periods gt 
trigonometrical constant ae 
poimter to next failing system * 
probability of failure for item Y** 
peatrter to Starting’ entry bs 
auxiliary variable ae 
fieldvariable for file "001" wes 
distribution of repairtimes —— 
replacement level for items ws 
rep.time std. dev. in @ of mean ** 
result of r. n. generator are 
uniform r. n. to determine subitem* 
system stock number oo 
number of samples to be computed ** 
downtime for system x * 
cost of one unit of system yi 
standard deviation gts 


cost of all spare stocked parts ** 
amount of money,spent on a system** 
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REM ** ST Jerre rnediate pot rer «x 


REM ** START : pointer to next failing system 4% 
REM ** STOCKS ;: fieldvariable for file "O01" % 
REM ** SYS$ : fieldvariable for file "004" * 
REM ** SYSCOST : systems+spares costs in major unit* 
REM ** SYSNUM : # of systems in the major unit "x 
REM ** SYSWKHRS >: weekly # of system operat. hours ** 
REM ** SYSTEMS(x) : up to 500 systems H 
REM ** T(x) ; auxiliary array 4 
REM ** TA(b) >: admin. delay level b * 


REM ** TC(x) 
REM ** TCOST 
REM ** TDOWN 
REM ** TRANSP(a) 
REM ** TS(x) 


# of sys in m.u. w/o lower echelon* 
total cost for all comsumed parts** 
total down time for all systems ** 
transp. del.time level a distr. b** 
# of sys in m.u. w lower echelon ** 


REM ** TT(x) ; transp. delay level b H 
REM ** U : auxiliary variable ae 
REM ** Ux : uniformly distributed r. n. sie 
REM ** U$(x) : major unit type ux 
REM ** UL :; upper limits for uniform distr. “™* 
REM ** UN(x) > major unit type * 
REM ** UP >; auxiliary variable a 
REM ** V >; auxiliary variable i 
REM ** WEEKDAYS : number of workingdays per week % Ht 
REM ** X : auxiliary variable — 
REM ** X(x) >: auxiliary array * 
Knee * * ;: auxiliary variable ee 
REVee* * 7 ;: control variable = 
REM ** Z(x) >: auxiliary array H 
RE 8 | Z25F ; counter for “fire “U00L" aie 


REM HE DE HE DE DE HE FE DE DE DE FE DE FE DE FE FE DE FE FE FE DE FE DE FE FE FE DE FE 2E FE DE FE DE FE Ee DE DE 2E 2E DE DE DE DE 2E DE FE 2E DE 2 HE 


250 


REM 
REM 
REM 
REM 
REM 
CLS 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
KILL 
RAND 
NULL 
BEEP 
F=0: 
fc 
PRIN 
INPU 


HHHBHAHAHEAHHHERAHAHAHARAHR AS 
# Start of Main Program # 
HHEHEHBHBHHHHHEHAHAHARBEAS 


MDMIN(3),B$(10),C$(10),COST(502) ,DIST(5,5) 
DOWN(5),EX(502),F(150),H(10),H$(9),HEADS(5),1IT(20) 
LABOR(502 ),LAMBDA(100),MTTIME(5),MU(5,5) 
NI(150),NO(502),PC(502),POINTER(500),PROB(100) 
SDOWN(502),SYSTEMS(500),T(10),TA(4),TC(21) 

TRANSP( 3), 1TS(21),TT(4),US$(20),UN(150),X(10) 


Z(150) 
4,6,8 
357,16 
‘woer / org maint.", " DS / GS " 
"Depot / Industry "," no more entries ","uniform" 
"normal","exponential","Gamma", "lognormal" 
"fixed","transportation times (one way)" 


“aomen same delays" ,"brigii","brigi2","brigi3" 
“De iei4” , "pricis","brigi6o","brigi7","brigi9" 
wie » dees *. “dae se” , “diva” ,“divd5","“div6","corps" 


PmMECH. BRIG" ,"ARM’D BRIG", "MOUNT.BRIG" 

TARE. BRIG”,” INE. BRIG", "AVIAT.BRIG" 

[mec BelG”". "SIGN. BRIG","MECH. DIV " 

wiry. WNLTS”,"ARM’D. DIV","DIV. UNITS" 

“eae UnT DIV "SepLlV. UNITS","AIRB. DIV" 

ciey. UNITS”",”"INEF. DIV.","DIV. UNITS" 

DAASLT ~DIV"”, "DIV. UNITS","CORPS ! 

“CORPS UNITS" 
MOO 7" :REM erase all old temporary files 
OMIZE TIMER >REM seed random number generator 
$="0":0$=" ";PAGE=1 


:LOCATE 10,5 
ON ERROR GOTO errhandler 


T 
T 


"Enter total number of failures to simulate"; 
" ( <= 1000 ): ",SAMPSIZE 


IF SAMPSIZE<=0 OR SAMPSIZE>1000 THEN __ 


p= 
A=2: 
A=1: 
FOR 
Cle: 
LOCA 
110: 
E$=I 
LPRI 
INCR 
LPRI 
LPRI 


1:GOSUB errhandler 

FOR Ned TO 3:READ MU(A,X):NEXT X 

FOR X=#=1 TO 3:READ MU(A,X):NEXT X 

Y=1 TO 10:READ BS$(Y):NEXT Y 

BEEP:LOCATE 10,30:PRINT “adjust paper in printer" 


TE 15,30:PRINT "press a key to continue" 
NWPUTS(1):IF ES="" THEN 110 ELSE CLS 
NT " PAGE ";PAGE 


PAGE aALPRINT: LPRINT 
NT O$;"Number of Failures to be generated 
Nr SAMPSIZE: LPRINT: LPRINT 
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LPRINT 0O$; 


"Distributions and Parameters for Transportational" 
LPRINT OS$;_ 


= = 9 


LPRINT O$;" and Administrative Delays" 
LPRINT O$;" SS Sm nd ss Sa os eS os me as oe ae 
LPRINT: LPRINT 

CLS: LOCATE 10,20 

PRINT "Enter desired value for the"; 

PRINT " standard deviation of" 

LOCATE 12,20 

PRINT " the delay distributions"; 

PRINT " in per cent of the mean" 

LOCATE 20,20 


PRINT " the default value is 10 per cent" 
EGGATE 22,20 
PRINT " to accept press. ENTER," 


INPUT " else type percentage ",E 
IF E>0 THEN DELSD=E/100 ELSE DELSD=0.1 


A=1:GOSUB dlay >REM determine transp. delay times 
INCR A:GOSUB dlay:REM determine admin. delay times 
GOSUB repdist :REM determine repair time distrib. 


LPRINT CHR$(12) 


fai: : 
CLS: BEEP: LOCATE 10,20 
INPUT “Enter number of workhours per day ",DAYHOURS 
IF DAYHOURS<=0 OR DAYHOURS>24 THEN _ 
F=2:GOSUB errhandler 


£3 

LOCATE 13,20 

INPUT “Enter number of workdays per week ",WEEKDAYS 

IF WEEKDAYS<=0 OR WEEKDAYS>7 THEN F=3:GOSUB errhandler 
SYSWKHRS=WEEKDAYS*DAYHOURS 

OPEN “A s6. “ O0ia® 

WRITE#6, "WEEKDAYS=",WEEKDAYS,"DAILY HOURS=",DAYHOURS 
CLOSE 6 


£4: 

CES< BERR: LOCATE Lo. 10 

PRINT"Enter the System Stock"; 

" Number (e.g. 1234- t25 eo] 12 oan 

LOCATE 13,45: INPUT" ,o5 

IF LEN(S$)<>16 OR wessicul 5,1)<>"- 
OR MID$(S$,8,1)<>"-" OR ees we eo @= 
THEN F=4:; GOSUB errhandler 

C=2 
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REM |. 
REM COMPUTE LAMBDA-SYSTEM (LAMBDAS ) 
REM 
CLS: LOCATE 10,10 
PRINT "Compute Lambda for overall System" 
NAM$=LEFTS$(S$,4 )+RIGHTS(S$,4)+"."+MID$(S$,9,3) 
Or OPEN "i",5,NAMS:CLOSE 5 
OPEN "r",5,NAM$,60 :REM read random access data files 
FIELD#5,1 AS A1$,2 AS A2$,16 AS A3$,20 AS A4S$, __ 
8 AS A5$,5 AS A6$,1 AS A7$,1 AS A8S,_ 
5 AS A9$,1 AS AR$ 
GET 5,1:A=VAL(A6$ ): FH$=A4$ :SGLSSCST=VAL(A5$ ) 
IF A=0 THEN 10 ELSE LAMBDAS=A:CLOSE 5:GOTO 101 


10: 
GET 5,C 
WHILE MID$(A3$,5,1)="-" . 
LAMBDA(C )=1/VAL(A6$ ) :REM individual failure rate 


C=C+1:GET#5,C 
WEND 
C=C-1: LAMBDAS=0 
POR Y=2 TO C 
LAMBDAS=LAMBDAS+LAMBDA(Y ) 
NEXT Y:CLOSE#5:C=2 
REM 
REM GET System Dislocation within Major Unit 
REM 


RO : 
Ci: BEEP: LOCATE 8,23 
PRINT “System Dislocation within Major Units" 
becartk 12,20 
PRINT “Input filename for system distribution file" 
LOCATE 14,26 
PRINT "Default filename is DISTRIBN" 
LOCATE 20,20 
PRINT "To accept default press ENTER or enter name" 
Decewre 22,30: INPUT " ",FS 
IF F$=""" THEN FS$="DISTRIBN" 
F1i=0 
FOR X=1 TO 150 
Z(X )=0 
NEXT X 
CLS 
OPare "TT" 5 , mS 
INPUT#5 ,AS:X=VAL(A$) 
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FOR A=1 TO X 
INPUT#5,UN(A),NI(A) 
IF UN(A)=198 THEN Fi-=1 
IF UN(A)=199 THEN F1=2 


NEXT A 

CLOSE#5 

FOR A=0 TO 20 
TS(A )=0 

NEXT A 


FOR A=1 TO 8 
READ F$:D=VAL(RIGHTS$(F$,2)):GOSUB compsys 
NEXT A 
FOR A=1 TO 6 
READ F$:D=VAL(RIGHT$(F$,1)):GOSUB compsys 
NEXT A 
READ F$:D=0:GOSUB compsys 
LPRINT " PAGE "; PAGE 
INCR PAGE 
LPRANT : LPRINT 
F$="Dislocation of "+FH$+"within Corps" 
LPRINT 0$;0$;F$ 
B=LEN(F$ ):NNS="" 
FOR A=1i TO B:NNS=NNS$+"=":NEXT A 
LPRINT 0$;0$;NN$:LPRINT: LPRINT 
LPRINT 0$;0$;"Major Unit # of systems" 
LPRINT 0$;0$;3;"-------------------------- "; LPR ENS 
CLS; LOCATE 2,10 
PRINT “se2e2=2ss22eSe2555 2225555555555 55555255 22252e==" 
LOCATE 3,10 
PRINT "== Menu : CHOICE OF MAJOR UNIT TYPE ==" 
LOCATE 4,10 


PRINT ” Cee wee oo ee oo SSS SS SS SE SE See aeaeee eo ese ose eee ee SS = ==" 


LOCATE 5,10 


PRINT “== Customer # systems selection ==" 
LOCATE 6,10 | 

PRINT “#2= --------------------- 7-H - - - - ==! 
M=1 


FOR A=11 TO 17 : 
READ F$:IF Z(A)>0 THEN LPRINT 0$;0$;F$,:_ 
LPRINT USING "######";TS(A) 
IF Z(A)=0 THEN 11 
IT(M)=TS(A) 
LOCATE M+6,10 
PRINT "== an ox 
LOCATE M+6,15 
PRINT F$:LOCATE M+6,30:PRINT "(";TS(A)3")" 
LOCATE M+6,45:PRINT ": ".-M:U$(M)=F$:INCR M 
Jes 
NEXT A 
A=19:READ FS$ 


IF Z(A)>0O THEN LPRINT 0$;0$:FS, 
LPRINT USING "HEHE TSTA) 
IF Z(A)=0 THEN lal 
IT(M)=TS(A) 
LOCATE M+6,10 
PRINT "== =a 1 
LOCATE M+6,15 
PRINT FS$:LOCATE M+6,30:PRINT "(";TS(A);")" 
LOCATE M+6,45:PRINT ": ";M:US$(M)=F$:INCR M 
lua : 
FOR A=1 TO 6 
READ FS$,NNS$ 
IF Z(A)=0 THEN 12 
LPRINT 0$;0$;F$, 
LPRINT USING "######";TS(A):LPRINT 0$;0$;NNS, 
LPRINT USING "“######";TC(A) 
LOCATE M+6,10 . 
PRINT"== x ast 
LOCATE M+6,15 
PRINT F$:LOCATE M+6,30:PRINT "(";TS(A);")" 
IT(M)=TS(A) 
LOCATE M+6,45:PRINT ": ":M:U$(M)=F$:INCR M 
LOCATE M+6,10 
PRINT" == Seenl!? 
LOCATE M+6,15 
PRINT NN$:LOCATE M+6,30:PRINT "("; Berks "yn 
IT(M)=TC(A) 
LOCATE M+6,45:PRINT ": ";M:U$(M)=NN$: INCR M 
Ws 
NEXT A 
READ FS$,NNS 
LPRINT 0$;0$;F$,:LPRINT USING "######":TS(0) 
LPRINT 0$;0$; NNS , : LPRINT USING" ######";TC(O) 
LOCATE M+6,10 
PRINT "== a a!" 
LOCATE M+6,15:PRINT F$ 
LOCATE M+6,30:PRINT "(";TS(0);")" 


IT(M)=TS(0):LOCATE M+6,45:PRINT ": ";M:U$(M)=F$:INCR M 
LOCATE M+6,10 
PRINT "== = = 


LOCATE M+6,15:PRINT NNS 
LOGATE M+6,30:PRINT "(";sTC(O);")" 
IT(M)=TC(0):LOCATE M+6,45:PRINT ": ";M:U$(M)=NN$:INCR M 
FS="Reserve": Y=0 
IF Fi=1 THEN Y=INT(NI(X)*TS(0)+.5): 
LPRINT 0$:0$;F$,:LPRINT USING "HUBHHE! SY 
IF Fi=1 THEN LOCATE M+6,10: 
PRINT" == ==" 
IF Fi=1 THEN LOCATE M+6,15:PRINT F$:LOCATE M+6,30:_ 
PR TOM Ys" )™: IT(M)=Y: 
LOCATE M+6,45:PRINT ": ";M:U$(M)=F$:M=M+1 
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IF Fi=2 THEN LPRINT 0$;0$;F$,:_ 
LPRINT USING "######";NI(X) 
IF Fi=2 THEN LOCATE M+6,10:_ 
PRINT"== =a 
IF Fi=2 THEN LOCATE M+6,15:PRINT F$:_ 
LOCATE M+6,30:PRINT "(";NI(X)3")"3_ 
IT(M)=NI(X): LOCATE M+6,45:PRINT ": ";M:U$(M)=F$:M=M+1 
LPRINT OS -0$. "---=332222- 22222 2 " 
F$="Total" 
IF Fi=1 THEN LPRINT 0$;0$;F$, 
LPRINT USING WHHEEHHM Y+TS(Oy 
IF Fi=2 THEN LPRINT 0$;0$;F$,:_ 
LPRINT USING "######";NI(X)+TS(0) 
LOCATE M+6,10 


REM 

REM GET MAJOR UNIT DATA 
REM 

13 

MIN=1000 


FOR X=1 TO M-1 

IF MINDIT(X) THEN MIN=IT(X) 
NEXT X 
IF SAMPSIZE<MIN THEN F=5:GOSUB errhandler 
BEEP:LOCATE 24,20: INPUT "Enter choice : ",E 
IF E<1 OR E>M-1 OR IT(E)>SAMPSIZE THEN _ 


LOCATE 24,20:PRINT " ":;GOTO 13 
LPRINT: LPRINT: LPRINT: a 
LPRINT O$;0$;"choice :"sE, 


IF RIGHTS$(US(E), 5 )="UNITS" “THEN 
MU1$=U$(E): MU2$=U$(E- 1): 
LPRINT U$(E),US$(E-1): LPRINT_ 
ELSE MU1$=U$(E): MU2$="?":LPRINT US(E): LPRINT 
ADDIT=0:MULT=1:I=IT(E) 
WHILE I+ADDIT>500 >-REM scaling of number 
MULT=MULT*3: I=INT( IT(E)/MULT ):ADDIT=IT(E)-MULT*I 
 WEND: C=2 
OPEN 20! 25 "005" 
WRITE#5,"number of systems:",I 
WRITE#5,"number of simulations:",SAMPSIZE 
REM ; 
REM Generation of MTBF’s 
REM 
CLS:LOCATE 11,27 
PRINT "Subroutine FAILURE TIME Generation 
PS=1 
FOR N=1 TO I 
MU=1/LAMBDAS 
GOSUB expon 
GOSUB waittime 
NEXT N 
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FOR 


N=1 TO I:WRITE#5,NO(N),EX(N),PC(N):NEXT N 


CLOSE 5 


REM 


At this point for up to 500 systems {NO(x)} the 
MTBF’s {EX(x)} and the linking pointers {PC(X)} are 
preeactermimed and stored. 

Now starts the simulation core. For SAMPSIZE trials 
the program picks the most current MTBF, 

generates a failure down to the part level and 
computes all times and costs involved. 

After having done this the program generates a new 
MIBF for the respective system, gets this into the 
LINKED LISTING and goes to the next startpointer. 
At the end of this part for SAMPSIZE simulations 
the number of needed components, subcomponents and 
parts is known. 

For each system the ratio of up and downtime, 

the amount of maintenance manhours for each support 
level and the respective administrative and/or 
transportation delay times will be computed. 


SYSNUM=1*MULT:CT#=1 


OPEN 


ee. 1: O01", 80 


FIPLDF1,2 AS JS, 16 AS STOCK$,18 AS ITEM$,3 AS B$(1),_ 


OPEN 


3 AS B$(2), 3 AS B$(3), 3 AS B$(4),3 AS BS$(5),_ 
3 AS B$(6),3 AS B$(7),3 AS B$(8),4 AS B$(9),_ 
1 AS Q$,8 AS Q1$,7 AS L1$ 

ee. 3, "OoosS"., 80 


FIELD#3, 4 AS $1i$,3 AS RL$,3 AS 11$,16 AS N1$,_ 


OPEN 


11 AS RTS, 11 AS TAS, ar, AS TTS, 
iil AS MTTFS, 10 as L$ 
"rt 4,°904",30 ~ 


FIELD#4,3 AS C$(1), 3 AS C$(2),3 AS C$(3),3 AS C$(4),_ 


ELS 


FOR 


3 AS C$(5),3 AS C$(6),3 AS C$(7),3 AS C$(8),_ 
6 AS SYS$ 
LOCATE 10,28:PRINT " Iteration for Simulation"; 
COUNT=1 TO SAMPSIZE: REM for SAMPSIZE trials 


N$=S$: LOCATE 10,20:PRINT COUNT; 
mee COUNT=1 THEN PRINT "st"; 
IF COUNT=2 THEN PRINT "nd"; 
IF COUNT=3 THEN PRINT "rd"; 
Pewee UNT>S PEN PRINT "th"; 


UP=EX( PS): P=PC(PS) 
D1=SDOWN( PS ):SPENT=COST(PS ) 
LABOR=LABOR(PS) 


REM 
REM 
REM 


Generate Failure down to Part Level 


C=2:GOSUB failure:PUT 4,COUNT 


FOR X=1 TO 8:H(X)=VAL(C$(X)):NEXT X 


LEVEL#=1 


2M 


‘a. 


NAM$=LEFT$(N$,4)+RIGHTS$(N$,4)+"."+MID$(N$,9,3) 


OPEN "r",6,NAM$,60 >REM get item data 
FIELD#6,1 AS A1$,2 AS A2$,16 AS A3$,20 AS A4$, 
8 AS A5$,5 AS A6$,1 AS A7$,1 AS A8S, _ 
5 AS A9$,1 AS AR$ 
GET#6,H( LEVEL) 
MU=VAL(A9$ ):COST=VAL(A5$ ): N$=A3$ 
I=VAL(A1$ ): REPLCLVL=VAL(A7$ ) 
CLOSE 6 
LSET L$=STRS(MU ) 
SIGMA=REPSD*MU 
IF REPDIST=1 THEN GOSUB uniform:GOTO l4a 
IF REPDIST=2 THEN 
GOSUB normal 
IF RES<0O THEN RES=0. 
GOTO 14a 
END IF 
IF REPDIST=3 THEN GOSUB expon:GOTO 14a 
IF REPDIST=4 THEN GOSUB gamma:GOTO 14a 
IF REPDIST=5 THEN GOSUB lognormal:GOTO 14a 
IF REPDIST=6 THEN GOSUB fixed 


l4a: 


MTTR=RES :REM random variable repair time in hrs 
IF LEVEL=1 THEN GOSUB dtime: __ 
DOWN=DOWN+MTTR: TDOWN=TDOWN+DOWN * MULT 


MTTIME(REPLCLVL )=MTTIME( REPLCLVL )+MTTR c 
IF I<9 THEN 
MTBF=0: LEVEL=LEVEL+1 
LSET S1$=SYS$ 
LSET RL$=STRS$(REPLCLVL) 
LSET I1$=STRS$(I) 
LSET Ni$=N$ 
LSET RT$=STRS(MTTR ) 
LSET TA$=STR$(TA(REPLCLVL-1 ) ) 
LSET TT$=jSTR$(TT(REPLCLVL-1 ) ) 
LSET MTTF$=STR$(MTBF ) 
PUT#3 ,CT 
INCR CT:GOTO 14 
END IF 
UP=UP+DOWN :REM time system up again 
MU=1/LAMBDAS 
GOSUB expon 
MTBF=RES*DAYHOURS 
LSET S1i$=SYS$ 
LSET RL$=STRS$(REPLCLVL) 
LSET 1I11$=STRS$(I) 
LSET N1$=N$ 
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LSET RT$=STRS(MTTR) 

LSET TA$S=#STR$(TA(REPLCLVL-1 ) ) 

ESET TTS=—STRS$(TI( REPLCLVL-1 ) ) 

LSET MTTFS$=STR$(MTBF ) 

PUT#3,CT 

LNCR CT 

EX=MTBF+UP ;sREM new failure time 
GOSUB upll 
NEXT COUNT 
REM At this point for up to 500 systems a total of 
REM SAMPSIZE failures are stored in "005". The failure 
REM parameters are stored in "004". The manpower 
REM requirements for each level are stored in "006". 
ELTIME=UP/SYSWKHRS: PERNUM=ELTIME/ 4 
CP ite "a" ,or, "006" 
WRITE #6,"Scaling Factor=",MULT 
WRITE#6,"Summary of item, manpower-requirement" 
Gre: LOCATE 11,20 
PRINT “Subroutine Summation of consumed Items '" 
LPRINT CHRS$(12) 
LPRINT " PAGE "; PAGE 
BCR PAGE: LPRINT: LPRINT 
EPRINT _ 
: Summary of Items and Manhours for";_ 
SAMPSIZE;; "Simulations" 
LPRINT _ 
"7 


C$(2)="Org. Maintenance" 

C$(3)="DS/GS Maintenance" 

C$(4)="Depot Maintenance" 

FOR X=2 TO 4 
Gawle: LPRINT: LPRINT: IF X>2 THEN LPRINT CHR$(12): 
LPRINT * PAGE De 
LPRINT PAGE: INCR PAGE 
LPRINT: LPRINT 


LPRINT " ; CHR$(27 );CHRS(45 );CHRS(1); 
"For Level :";C$(X); cHRS(27); CHRS(45); CHRS(0); : LPRINT 
LPRINT: LPRINT:LPRINT 0$;3 | 
Stock gnumber Item Description i 

: # used" 

LPRINT 0$; "s=s=s==s=s=ss===ss=85555535 55555555 5555="5_ 
GET#1,C 

Q=VAL(QS ) 


WHILE MIDS(STOCKS$,5,1)="-" 
IF Q=X THEN LPRINT 0$;STOCKS,ITEM$,VAL(B$(9) ) 
INCR C:GET#1,C:Q=VAL(Q$ ) 

WEND 

LPRINT: LPRINT: LPRINT 


259 


LPRINT 
"total 
LPRINT 


LPRINT: 


LPRINT 


OS;_ 

consumed manhours on this level ; te 
USING "######.## hrs.";MTTIME(X) 
LPRING : LPRENA: 

OS; 


"average manhrs within 4 weeks on this level : "; 


LPRINT USING 


"HEHHHA .## hrs.";MTTIME(X)/PERNUM 


Y=MTTIME(X )/ (PERNUM*DAYHOURS * WEEKDAYS *4 ) 


REM 


REM include at least 1 person if work to do 


REM 


IF Y=0 THEN HEADS(X )=0 

IF Y>O AND Y<=1 THEN HEADS(X )=MULT 
IF Y>1 THEN HEADS(X )=INT(Y+0.5)*MULT 
WRITE #6,X,HEADS(X) 

LPRINT SPRINT? CPRINT 


LPRINT 3@s; . 

LPRINT “average rounded number"; 

LPRINT “ of mainten= personal) 

HEADS (X); 

IF HEADS(X)>1 THEN __ 

LPRINT "repairmen" ELSE LPRINT “repairman" 

NEXT X 
LPRINT CHR$(12) 
CERN i)" PAGE "seu. 
LPRINT PAGE: INCR PAGE: LPRINT: LPRINT . 
LPRINT 0$;0$; "Additional Statistics" 
LPRINT 0$;0$; "s={=e===esee=sseeee2ess=2=" 
LPRINT: LPRINT: LPRUN Tae roUN 


C=1:WRITE#6 


»>"4 week stock levels for items":GET 1,C 


WHILE MID$(STOCK$,5,1)="- 
IF VAL(J$)=9 THEN 


TCOST= TCOST+VAL(B$(9))*VAL(Q1$) 


N=INT( VAL(B$(9))/PERNUM+.5 ) 
IF N<1 THEN N=1 
SPARECST=SPARECST+N*VAL(Q1$ ) 


WRITE#6 ,J$,STOCKS , ITEMS ,N,L1$: 


WEND 

CPR oNS 
LPRINT 
LPRINT 
LPRINT 


LPRINGS 


LE RPrEE 
LPRINT 
LPR ING 


LPRINT: 


LPRINT 
LPRINT 


LPEINT : 


INCR C:GET 1,C 


: LPRINT: LPRINT 


OS; 

using"total elapsed time for ####";SAMPSIZE; 
USING " simulations HAHAH .## weeks";ELTIME 
EPR = Or helen 


O$;"total number of 4 week periods for "; 
USING "#### simulations :";SAMPSIZE; 
USING " ###.##"; PERNUM 


BERING: LeRoi 

O$;"average system down time 2 

USING "##### .## Days" : (TDOWN/SYSNUM) / DAYHOURS 
LPRONT  LPROINT 


AVAIL=(1-(TDOWN/SYSNUM)/UP )*100. 
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LPRINT 
LPRINT 


PERINT : 


LPRINT 
LPRINT 


LPRINT: 


O$;"average system availability : "; 

USING "##.## per cent";AVAIL 

LPRINT: LPRINT 

O$;"average maintenance cost per system : "; 
USING "SS###### FHF .##";TCOST/SYSNUM 

LPRINT: LPRINT 


SYSCOST=SYSNUM*SGLSSCST+SPARECST 


PRINT OS; "initial system cost for "; 
IF MU2S<+"7" THEN LPRINT MU1$;_ 
BLSE LPREINT MUDS;" ";MU2S; : 
LPRINT ": ";:LPRINT USING "$S######### .##";SYSCOST 
LPRINT O$;"(systems and spare parts for 4 weeks) 


LPRINT: 


LPRINT 
LPRINT 


LPRINT: 


LPRINT 


LPRINT;: CPRINT 

O$;"cost of additional 4 week supplies ae: 
USING "SS#######HA#A .#H#";TCOST/PERNUM 

LPRINT: LPRINT 

CHR$(12):CLOSE #6 


CLS:LOCATE 10,10 
PRINT USING "elapsed time for #### simulations :";_ 
SAMPSIZE; 


PRINT USING 
LOCATE 20,34:PRINT 


" HHB#B#A#H .## weeks";ELTIME 
"PROGRAM END" 


CLOSE: END 

REM 

REM HAHAHAHAHA AHA AH AHA AAA EAE 
REM # End of Main Program 
REM HAHHHHAHHAHAAAAAAE AAA ABA 
REM 


REM HE Ht HE OE HE 9€ 9E HE HE HE FE 1 34 3 3 2 HE 9 3 HE HE OE HO HE OE HE HH OE HE 0G 94 3 3 36 2G 0E 0 9 04 EE HE 0 OH OE HE OH 
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REM . 

REM Subroutine ENTER ESTIMATED DELAY TIMES 
REM 

dlay: 

REM 

READ A$ 

LS 

CLS: LOCATE 10,10 

PRINT"Enter required information about the ";A$;";" 
PRINT . 

LOCATE 12,15:PRINT "- on the ";B$(1);" level 


1 ie 
LOCATE 13,15:PRINT "- on the ";B$(2);" level (> 2 8 
LOCATE 14,15:PRINT "- on the ";B$(3);" level C3 38 
LOCATE 17,15:PRINT "- weBS (4 ee ( 9 )" 
or 
INPUT B 


IF B<1l OR B>3 AND B<>9 THEN 16 ELSE _ 
IF B=9 THEN CLS:GOTO 17_ 
ELSE GOSUB deldist:GOTO 15 

Lee 

RETURN 

REM 


REM HHHHHHHHKHMNRHHH NHR NHHHHHNHHHHHHHRHEHHHEHHNHHHHHHHHHHHHHHH HHH KH HK 
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REM 


REM Subroutine ENTER ESTIMATED ADMIN 
DELAY DISTRIBUTIONS 


REM 
REM 


deldist: 


REM 
ES= " 
eS’: 


CLS: LOCATE 8,30:PRINT AS: 
"Enter 


PRINT 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
PRINT 
LOCATE 
PRINT 
INPUT 


mo: 


12,20 
13,20 
14,20 
Bo ,20 
16,20 
iy, 20 
al, ce 


22,20 


LOCATE 10,20 


desired distribution aoe 


>:PRINT 
>PRINT 
>PRINT 
>: PRINT 
:PRINT 
>:PRINT 


B$(5):LOCATE 12,40 


B$(7):LOCATE 14,40 
B$(8):LOCATE 15,40 
B$(9):LOCATE 16,40 


the time 
:PRINT 
B$(6):LOCATE 13,40: 


PRINT 


>PRINT 
> PRINT 
> PRINT 


Lt 


delays:" 


OP WONFR 


AND TRANSPORT 


se 
yet 
yet 


Bacup) LOCATE 17,40:PRINT "( 6 *)" 


"default distribution is NORMAL" 


"to accept default press ENTER"; 


else type number ",E 
IF E>0O THEN DIST(A,B)#=#E ELSE DIST(A,B )=2 


Ges. LOCATE 8,20:PRINT A$ 
PRINT:PRINT 
" level, 


Pein? ES; 
PRINT MU(A,B) 


LOCATE 
PRINT 
INPUT 


22,20 


On the " 
enter for the "; 
BS(DIST(A,B)+4);3 
PRINT E$;"the average (mean) value in hours" 
"the default value is:"; 


;BS(B);_ 


" distribution" 


"to accept default press ENTER"; 
else type value 


"oE 


IF E>O THEN MU(A,B)=E 


SIGMA=DELSD*MU(A,B) 


LPRINT O$; 
IF A=1 THEN 


LPRINT 


IF A=2 THEN 


LPRINT 


DER IT 
LPR INT 


IF DIST(A,B)=#1 THEN 


Oos;" 
OS; 


"transportation delays - 


"administrative delays - 
distribution 


LL=MU(A,B)-SQR(3*SIGMA%2 ) 
UL=MU(A,B)+SQR(3*SIGMA“%2 ) 


level 


level 
men 4+DIST( A,B )) 


Ser EN 


MLS 


LPRINT USING "Lower Limit= ###.### 
LPRINT USING "Upper Limit= ###.###";UL 
END IF 
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us BD B:) 
UBS B 


IF DIST(A,B)=2 THEN 


LPRINT USING "Mean = ###.### "sMU(A,B), 
LPRINT USING "Sigma = ###.###";SIGMA 
END IF 


IF DIST(A,B)=3 THEN 

LPRINT USING "Lambda= ###.###";1/MU(A,B) 
END IF 
IF DIST(A,B)=4 THEN 

DOF=INT( (MU(A,B)/SIGMA )*2 )+1 


LPRINT USING "Lambda= ###.### "Ss DOR, MUCA, Bye 
LPRINT USING "DOF= ###";DOF 

END IF 

IF DIST(A,B)=5 THEN 
LPRINT USING "Mean = ###.### SMU AB) 
LPRINT USING "Sigma = ### .###";SIGMA 

END IF 


IF DIST(A,B)=6 THEN LPRINT "value= ";MU(A,B) 
LPRINT 

RETURN 

REM 


REM HHHHKRNHNHRMHNHHHNMHMHRHHRHMHHMHRHMHHHHHHHMHHHMHHHMHHHHHH HN HHH HM 
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REM 


desired distribution for 
:PRINT 


PRINT 
Pay t Ne 
PRINT 
PRINT 


Pea ENT 


"tide default 


REM 

REM 

REM 

REM 

REM 

REM 

rPepdaist: 

REM 

Cisse LOGATE 10,20 
Polmt 6 “Enter 
LOCATE 12,20 
POCATE 13,20: 
P@CRTE 124,20: 
LOCATE 15,20: 
EOCMTE 16,20: 
LOCATE 17,20 
LOCATE 20,20 
PRINT 
REPDIST#=5 
GECaATE 22,20 
INPUT 


IF E>O THEN 
CLS: LOCATE 10,20 


PRINT 
LOCATE 
PRINT 


dul we 1 


REPSD=0.1 


LOCATE 
INPUT 


2c, 


B$(5): 
B$(6): 
B$(7): 
B$(8): 
B$(9): 


Subroutine ENTER REPAIRTIME DISTRIBUTION 


the default distribution for the repairtimes is 
lognormal with mu given by the manufacturer and 
a sigma of 10 % of the mean 


ticuencpalr time. 


LOCATE 12;,40@PRINT > "( 1 )" 
COCAr Eels. 40 2PRINT="( 2 )" 
HOCALE 4 40:PRINT "{ 3 )" 
LOCATE 15,40:PRINT "( 4 )"* 
LOGATE 16,409PRINT "( 5S)" 


B$(10):LOCATE 17,40:PRINT "( 6 )" 


distribution is 


"to accept press ENTER, 
REPDIST=E 


"Enter desired value for the 


"the default value is 10 per 


"to accept press ENTER, 


IF E>O0 THEN REPSD=E/100 


RETURN 


REM 


LOGNORMAL" 


else type number ",E 


standard deviation" 


cent of the mean" 


else type percentage ",E 


REM dE FE FE FE FE FE FE HE FE FE HE FE DE FE HE DE FE FE DE DE FE dE DE DE DE FE DE DE DE DE DE DE FE DE OE FE OE 2G HE 2G DE 0 0E EE OH OH OH OH OH 
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REM 
REM Subroutine FAILURE 
REM 
failure: 
REM 
NAM$=LEFT$(S$,4 )+RIGHTS$(S$,4 )+"."+MID$(S$,9,3) 
FOR X=1 TO 8:H$(X)="0":NEXT X:REM reset stringvariables 
X=1 
lot 
OPEN "r",6,NAM$,60 :REM read random access data files 
FIELD#6,1 AS A1$,2 AS A2$,16 AS A3$,20 AS A4$, | 
8 AS A5$,5 AS A6$,1 AS A7$,1 AS A8S,_ 
. 5 AS A9$,1 AS AR$ 

GET#6,C 
WHILE MID$(A3$,5,1)="-" 

LAMBDA(C )=1/VAL(A6$ ) >REM individual failure rate 


INCR C:GET#6,C 
WEND:DECR C: LAMBDA=0 
FOR Y=2 TO C 
LAMBDA=LAMBDA+LAMBDA(Y ) 


NEXT Y 

CPROB=0: RN=RND 

FOR Y=2 TO C :REM for all related items 
PROB( Y )=LAMBDA(Y)/LAMBDA:REM comp. prob. of failure 
CPROB=CPROB+PROB(Y ) >REM compute cumul. prob.s 
IF RN<=CPROB THEN H$(X )=STRS(Y):_ 
GOTO 112 >REM pick item 

NEXT Y 

12 


GET#6,Y:A$=A3$:I$=A4$: be 

CLOSE #6:GOSUB upd1i:REM get data set 

IF A=9 THEN GOTO 113 >REM leave if a part 
REM prepare next filename 5 
NAM$=LEFT$(A$,4 )+RIGHTS$S(A$,4)+"."+MID$(A$,9,3) 
C=i:;INCR X:GOTO 111 ;REM next subitem iteration 
iL 3. 

FOR X=1 TO 8:LSET C$(X )=H$(X): NEXT X 

LSET SYS$=#{STR$(PS) 

RETURN 

REM 


REM De dt 24 24 OE DE DE OE OE DE OE OE OE OE OE HE OE OE DE DE DE OE OE OE DE 24 DE 24 OE OE OE OE OE DE OE OE OE OE OE 6 OE OE 6 06 OE 06 0 0 HE 
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REM 

REM Subroutine UPDATE "OOL1" 

REM 

upd? 

REM 

ZIF=1 

114: 

ON ERROR GOTO 116:GET#1,ZIF 

ON ERROR GOTO O 

IF MID$(STOCKS,5,1)="-" THEN 115 ELSE 116 

© 15s: 

IF STOCK$=A$ THEN H$(9 )=STRS$(VAL(B$(9))+MULT):GOTO 117 
INCR ZIF:GOTO 114 

1 oe: 

HS$(9 )=STRS$(MULT ) 

pays 

LSET J$=#A1$:LSET STOCKS=A$:LSET ITEM$=1$:LSET Q$=A7$ 
FOR Q=1 TO 9:LSET B$(Q)=H$(Q):NEXT Q:LSET Q1$=A5$ 
LSET L1S$=A6$:PUT#1,ZIF:RETURN 

REM 


REM FE FE 3E FE FE 34 HE FE DE HE FE FE HE HE HE HE HE FE HE HE HE HE HE FE FE HE HE HE HE HE HE 3 HE HE HE HE ME EH MH OH OM 
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REM 
REM Subroutine COMPUTE # OF SYSTEMS FOR MAJOR UNIT D 
REM 


REM Inputs: F$ ;: file name 

REM D >; Major unit number 

REM UN(c) >; unit number 

REM Ni(c) >: number of these units 
REM 

compsys: 

REM 


FOR B=0 TO 20:F(B)=0:NEXT B 
OPEN"i",5,F$ 
INPUT#5,B,NS 
FOR B=1 TO NS: INPUT#5,U,V 
IF D<1i0O AND U<21 THEN Z(10*D+U )=Z(10*D+U )4+1 
IF U<21 THEN F(U)=V:Z(U )=Z(U)+1:_ 
TS(D)=TS(D)+NI(U+100)*F(U):GOTO 118 
FOR C=1 TO X : 
IF U=UN(C) THEN TS(D)=TS(D)+NI(C)*V:_ 
TC(D)=TC(D)+NI(C)*V 
NEXT C 
118: 
NEXT B 
NI(D+100 )=TS(D) 
CLOSE#5 
RETURN 
REM 


REM DE HE HE dE FE DE DE DE DE DE DE DE DE DE DE HE E96 DE EE HE DE DE DE 94 Ee OE DE OE DE 2 HE OE OE OE 9E 2 EE HE OE OE EE 0 0 tt 
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REM 

REM Subroutine EXPON. DISTRIBUTED WAITING TIMES (MTBF) 
REM 

waittime: 

REM 

EX=RES*DAYHOURS 

P=xPS:H=PS:Z=1 >REM set variables 
REM 

REM VALUE INTO SEQUENCE (LINKED LISTING) 
REM 

IF N=1 THEN -PE=N:P=N+1:GOTO endsub 

IF EX>EX(PE) THEN PC(PE)=N:PE=N:P=N+1:GOTO endsub 
IF EX<EX(PS) THEN P=PS:PS=N:GOTO endsub 
119: 

H=P:P=PC(P) 

IF EX>EX(P) THEN 119 

PC(H)=N 

endsub: 

NO(N )=N: EX(N)=EX:PC(N)=P 

PC(PE )=N+1 

RETURN 

REM 


REM HE FE 94 94 9 E24 FE HE 94 9 HE 94 94 94 94 HE 9G 94 94 HE 94 2G 9G 9 1 1 0 HE OE 0 OE EE OE 0 0 Oe OH OH OH HH OH OH 


REM 

REM Subroutine UNIFORM DISTRIBUTION 
REM 

REM required inputs : MU,SIGMA 

REM available output : RES 

REM 

uniform: 

REM 

LL=MU-SQR(3*SIGMA“%2 ) 
UL=MU+SQR(3*SIGMA“%2 ) 

RES=(INT( (LL+(UL-LL)*RND+.5 )*100))/100 
RETURN 

REM 


REM % HH MH HH OH OH OH OH OH OO OH OE HO Oe OE OO OH OH OH HHH HHH HHH MN HHH HH HHH HH 
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REM Subroutine NORMAL DISTRIBUTION 
REM Box-Mueller Method 


REM required inputs : MU,SIGMA 
REM available output : RES 


REM 

U1i=RND: U2=RND: PI=3.141592654 

Ni=COS(2*PI*U2 )*SQR(-2*LOG(U1 ) ) 

N2=SIN(2*PI*U2 )*SQR(-2*LOG(U1 ) ) 

RES=RND 

IF RES>.5 THEN RES=MU+N2*SIGMA ELSE RES=MU+N1*SIGMA 
RETURN 

REM 


REM HH HH HO EE OE EE OE EE EE EOE EE OE EE EO EE EO EE OO EHH 


REM 

REM Subroutine EXPONENTIAL DISTRIBUTION 
REM 

REM required input : MU 
REM available output : RES 
REM 

expon: 

REM 

RES=-MU*LOG(RND ) 

RETURN 

REM 


REM HHHHHHHHHRHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH HHH 
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REM 
REM Subroutine GAMMA DISTRIBUTION 
REM 
REM required input >: MU,SIGMA 
REM available output : RES 
REM 
gamma: 
REM 
DOF=INT( (MU/SIGMA )*2 )+1 
REM change DELSD to 2024, 
REM if DOF too large (DELSD too small) 
IF DOF>26 THEN DOF=26 
RES=1 
FOR X= 1 TO DOF 
RES=RES*RND 
NEXT X 
RES=- (MU )*LOG(RES ) 
RETURN 
REM 


REM HHHHHKHUKHLCUKHLMUHLCUHKNKNHKHHKNHKNHKNHKHKHHHMNHKHKKHHKNHKNHKHMNHHNHKNHKHKHHHHKNHHKHKNHHKHHHH HHH KK 


REM 

REM Subroutine LOGNORMAL DISTRIBUTION 
REM 

REM required input >; MU,SIGMA 

REM available output: RES 

REM 

lognormal: 

REM 

MUN=MU : SIGMAN=SIGMA 

REM transform lognorm parameters to normal 
MU=2* LOG( MUN )-0.5*LOG(SIGMAN*2+MUN“2 ) 
SIGMA=SQR(LOG(SIGMAN*2+MUN%*2 )-2*LOG( MUN ) ) 
REM generate N(MU,SIGMA) 

GOSUB normal 

REM generate lognormal 

RES=EXP(RES ) 

RETURN 

REM 


REM de FE FE 9 HE HE HE HE FE HE 2E HE 9€ DE 9E 2E FE 3E FE FE DE DE HE 2E HE DE 24 OE HE 2E OE 1 HE HE OE 1 EE EE 1 1 OE OO OE OH HE OH 
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REM , 
REM Subroutine FIXED DISTRIBUTION 
REM 

REM required input > MU 
REM available output : RES 
REM 

ieced : 

REM 

RES=MU 

RETURN 

REM 


REM He HE HE He HE HE HE HE HE HE HE HE HE HE HE He He EE Ee OE HE OE OE OE OE DE 0 EE Oe OH OH OE Oe OE OE OE OE OE OE HE HE 


REM 

REM Subroutine UPDATE LINKED LIST 

REM . 

upll: 

REM 

P=PC(PS):P1i=PS 

IF EX<EX(P) THEN GOTO subend ELSE PS=P 

IF EX>=EX(PE) THEN PC(PE)=P1:PE=P1:P=P1:GOTO subend 
a2: 

H=P:P=¥PC(P) 

IF EX>EX(P) THEN GOTO 121 

PC(H)=Pl1 

subend: 
EX(P1)=EX:PC(P1)=P:COST(P1)=COST:LABOR(P1)=LABOR 
SDOWN(P1)=DOWN+D1 

RETURN 

REM 


REM HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH HHH HH 


Cee 


REM 
REM Subroutine GENERATE DOWNTIMES FOR SYSTEM AND ITEMS 
REM 
dtime: 
REM 
FOR B=1 TO 3:A=1 
WHILE A<3 
MU=MU(A,B):SIGMA=DELSD*MU 
IF DIST(A,B)=1 THEN GOSUB uniform:GOTO 123 
IF DIST(A,B)=2 THEN 
GOSUB normal 
IF RES<O THEN RES=0 
GOTO 123 
END IF 
IF DIST(A,B)=3 THEN GOSUB expon:GOTO 123 
IF DIST(A,B)=4 THEN GOSUB gamma:GOTO 123 
IF DIST(A,B)=5 THEN GOSUB lognormal:GOTO 123 
IF DIST(A,B)=6 THEN GOSUB fixed 
hes : 
IF A=1 THEN TT(B)=RES ELSE TA(B)=RES 
A=A+1:WEND 
DOWN(B )=2*TT(B)+TA(B) >REM total of time delays 
NEXT B 
DOWN=DOWN(1 ) 
RETURN 
REM 


REM de Ht HE OE OE MO OE Oe HE OE OE OE EE EE Ee OE OE HO OH OH 
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REM 

REM Subroutine ERROR HANDLER 
REM 

errhandler: 

REM 

IF F=1 THEN F=0:LOCATE 10,20: _ 


PRINT “Iterations out cf Ranke. = 


GOSUB keyp:GOTO fil 
IF F=2 THEN F=0:LOCATE 10,25: _ 


PRINT "Hours out of Range": _ 


GOSUB keyp:GOTO f2 
IF F=3 THEN F=0:LOCATE 10,25: 


PRINT "Days out of Range": _ 


GOSUB keyp:GOTO f3 
IF F=4 THEN F=0:LOCATE 10,25: 


PRINT "Wrong Input Format": _ 


GOSUB keyp:GOTO f4 
IF F=5 THEN F=0:LOCATE 10,25:_ 


PRINT "Sample Size too small": _ 


GOSUB keyp:GOTO fl 
IF ERL=10 THEN LOCATE 10,20: __ 
PRINT "No File with this Filename: 
GOSUB keyp:RESUME f4 
IF ERL=20 THEN LOCATE 10,20: _ 
PRINT "No File with this Filename: 
GOSUB keyp:RESUME 101 
LOCATE 10,20:PRINT "File Error": _ 
GOSUB keyp:RESUME 
RETURN 
keyp: 
LOCATE 15,25:PRINT "Press any Key" 
F$=INPUTS(1) 
RETURN 
REM 


"sNAMS: _ 


ED se 


REM HHHHHRHHHRKHRHHHKHKHKHHKHRKHRKHKRKHHHHHHKRKHKHRHHHHHHHRKHRHHHHHHHH HHH HK 
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REM 
REM 
REM 
REM 
REM 


REM 
REM 


REM 
REM 
REM 
REM 


source Code Program QBEHAVE 


program QBEHAVE AUGUST 1987 
This program recomputes the queueing behavior with 
the numbers computed in the program ESTIMATE. 
Given are the four weeks planning data for stocks 
and manpower requirements. These figures are taken 
to establish the environment, in which the systems 
are failing. 

The program accesses the data in datafiles "003", 
"005" and "006", computes the arrival times at the 
maintemance facilities, checks for availability of 
parts and manpower and processes the systems 
throwgh the server queues. 

Output is not only the statistics for the specified 
number of servers but also a sensitivity analysis 
with server numbers varying and the consumption 
behavior with the given supply stocks. 

The results can be used to propose a structure for 
the logistics organization needed to support the 
new systems. 


HE DE OE HE HE HE DE OE HE OE EE DE HE DE HE DE OE HE Ee DE Ee 0E EE EE 9E OE 9G OE OE EE EE EE EE OE EE OE OH OH 


ae Var Table Directory we 
4 34 DE 34 DE DE 2G OE HE DE OE DE HE 9G DE OE FE OE 9G 2G HE HE OE 9G 9 DE Ee He He OE OE ee 0 HH OO HH OH OHHH OH OH HO 
a aN auxiliary variable e 
** A(x,y) array for OrgMn data mH 
** AxS fieldvariable for sysfile$ — 
* ARRTIME( x) arrival time at OrgMn we 
oor ey) average shipping time “> 
ue 6B auxiliary variable pee 
=~ B(x,y) array for DS/GS data * 
** BUSY(x) time server x is busy * 
mm C(x, vy.) array for DEPOT data * 
** CHOICES program mode : % 
** COUNTS number of spare part transactions ** 
** CURRS(x) current stock of item x * 
ee DS(x) dummy string variable , x 
m= D1 auxiliary variable ie 
** DAYHOURS hours per day, system is operatnl.** 
“vee filename for depot data + 
*x* DSS filename for ds/gs data * 
ue FG busy flag for server HH 
or Time time of failure as 
n* HE auxiliary variable ae 
ee HxG auxiliary variable ola 
** HISENSS doper limit for Sensitivity anal. ** 
— 6 auxiliary variable re 
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* * 
* * 
# # 
* 
% * 
* 
% * 
% 
* 
% # 
* * 
* * 
% # 
# 
% 
* 
% 
# 
# 
# * 
*% * 
* # 
% # 
* * 
% * 
* * 
* 
* * 
% # 
% # 
* * 
% # 
# # 
# 
a * 
* 


*% * 


% * 
% * 
% 
*% 
 * 
% * 
*% * 
% * 
*% * 
% 
% 
% * 
% 
% 


LAMBDAS 


LEVELS(x): 
LITTLESx®%: 


er 
Mx 


LOWSENSx®: 


° 
° 


MANPWR(x): 


MAX% 
MIN%(x) 
MTTFS$ 
MTTR 
MULT 


N&% 


NPTR%(x) 
NSN$ 


PAGES 
PDEPOT(x,y): 
PDSGS(x,y): 
PEx% : 
PERxXx : 
PORGMN(x,y): 


PS% 


PSx% 
PSYS(x) 
PTR&%(x) 


Qx% 


Qix% 
QDx% 


R 
R% 


° 


e¢¢ ee @ 


® 
* 


e 
e 


REPLCLVL2: 


RLS 
RL% 
RT 


auxiliary variable Be 
arrival time at level x aS 
string variable file "003" oo 
counting variable — 
arrival time at level x * # 
dataset number for itemfiles * 
stock number * 
number of different items * 
auxiliary string variable * # 
string variable file "003" at 
failure rate of item wat 
string variable file "003" _— 
maintenance level wpe 
minimum stock level before reorder** 
lower limit of sensitivity anal. ae 
auxiliary variable * 
repair.time level x — 
available servers at level x a 
max. number of customers in the Q ** 
minimum stock level for item x we 
string variable file "003" — 
mean time to repair 4 
scaling factor if >» 500 systems * 
counting variable ii 
pointer to next data set for system* 
string variable file "003" 7 
filename for org mn data * # 
Q outtime % 
auxiliary variable we Hie 
pointer in linked listing ae 
stores y items with x informations** 
filename for item data % 
page counter for output % # 

start-,endptr in Q server y Depot* 


start-,endptr in Q server y DS/GS * 


ptr for last element mm 
Guration for simulation a7 

start-,endptr in Q server y OrgMn* 
auxiliary variable 3 
ptr for startelement *e 
pointer for system in repair — 
pointer to data set in "003" — 
number of customers in the system ** 
number of waiting customers war 
cumulative waiting times + 
stockout risk factor um 
current replacement level aaa 
replacement level out of data file** 
string variable file "003" * # 
repair level “a 
réepalretime Matt 
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% 
% * 
% 
*% * 
% 
* 
* 
% 
* 
* * 
*% * 
* 
% * 
% 
% 
% * 
% 
% * 
* * 
% 
* * 
** 
* 
* 
* 
* # 


Ris 
S% 
S$ 
Sx 
S1$ 


SAMPSIZE%: 


SPTR4(x) 
STOCK(x) 
SYS 
SYS(n) 


SYSDOWN(x): 


SYSFILES 
SYSNUM% 
Tx%(y) 
eA 

TAX 

TAS 

To. 

a Lx 
WAITTIME 
WALTITTLxX 
WEEK 
WEEKDAYS 
X 

X% 

Y% 

Z 


string variable file "003" 
auxiliary variable 

system stock number 
number of servers level x 
string variable file "003" 
number of simulation iterations 
pointer for next systemepair 
number of items stocked 

system number 

system number array 

total downtime 
name of system data file 
number of systems in major unit 
Spare part information 
admin delay time 
admin delay time 
string. variable file 
transp delay time 
transp delay time 
waiting time for item x 
total waiting time level x 
total workhours per week 
days per week, 
auxiliary variable 
auxiliary variable 
auxiliary variable 
auxiliary variable 


"O03" 


system is operatnl. 


% 
% 
*% * 
% 
* 
% * 
*% * 
* 
% * 
** 
*M 
* * 
% 
* 
M 
uM 
* 
* * 
% 
* * 
*M * 
*M 
*% * 
% * 
* * 
*M # 
*M * 


HE 36 96 36 8 9G HE 3 2G EE HEE HE HE EEE EE EE DE EE EE EE EE EE EE EEE EEE EE EE EE EE 


Ch 


REM 
REM 
REM 
REM 
REM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
CLS 
CLS 


HEHEHE EEE EE TEE E 
# START OF MAIN PROGRAM # 
HEH HH Ht it it HEE TEE EEE 


A(8,1000),ARRTIME(500),B(11,1000) 
‘BUSY2(50),BUSY3(50),BUSY4(50),C(11,1000) 
CURR%(1000),FTIME(500),ITEM$(1000 ), ITEM4(1000 ) 
LITTLES%(1000 ),MANPWR4(3),MIN%(1000) ,NPTR%(500 ) 
P1(6000),P2%( 6000 ),P3%( 6000 ) 
PDEPOT(2,50),PDSGS(2,50),PORGMN( 2,50), PTR%#(500 ) 


SPTR%(500),STOCK%(1000) , SYSDOWN(500) 
T1(500),T2%(500) 

A(1,N%) = QUEUE-INTIME \ 

A(2,N%) = QUEUE-OUTTIME | 

A(3,N%) = POINTER FOR 003 \ ORG 
A(4,N%) = SPARE PART 1 / MN 
A(5:,N%) = SPARE PART 2 . 
A(6,N%) = SPARE PART 3 

A(7,N%) -= SYSTEM NUMBER / 

B(1,N%) = FAILTIME \ 

B(2,N%) = ARRIVALTIME 

B(3,N%) = Q-INTIME 

B(4,N%) = Q-OUTTIME 

B(5,N%) = POINTER 

B(6,N%) = PART 1 \ DS/GS 
B(7,N%) = PART 2 j/ SBEEOT (C(x, Yo 
B(8,N%) = PART 3 

B(9,N%) = REPAIRTIME 

B(10,N%)= ADMIN DELAY 

B(11,N%)= TRANSP DELAY / 

:OPEN "i",6,"006" 


INPUT#6 ,D$(1),WEEKDAYS ,D$(2),DAYHOURS 
INPUT#6 ,D$(1),MULT 
INPUT#6 ,D$(1) 


REM 
REM 
REM 
FOR 


read manpower data for the three maint. levels 


X%=1 TO 3 


INPUT#6 ,A,MANPWR&( X& ) 


NEXT X% 
INPUT#6 ,DS$(1) 
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REM 
REM read items to stock and the number of these 
REM 
X%=1 
INPUT#6 ,J$,ITEMS(X%),D$(2),STOCK%(X%) , LAMBDA$ 
LAMBDA=1 /VAL( LAMBDAS ) 
REM 
REM compute restock level for parts 
REM 
IF VAL(J$)=9 THEN GOSUB poisson 
CURR%(X% )=STOCK&( XB ) 
MIN&@(X% )=STOCK&( XB ) 
WHILE NOT EOF(6) 
INCR X&% 
INPUT#6 ,JS,ITEM$(X%) ,D$(2),STOCK%(X%) , LAMBDAS 
LAMBDA=1/VAL(LAMBDAS ) 
IF VAL(J$)=9 THEN GOSUB.poisson 
CURR%(X% )=STOCK&( XB) 
MIN%(X% )=STOCK%&( X ) 
WEND 
CLOSE#6 
ITEMNO@=X% :REM total number of different spares 
REM 
REM determine program mode 
REM : 
GOSUB choice 
REM 
REM enter input variables SENSLIM, AST and R 
REM 
GOSUB:- varin 
IF CHOICE%=0 THEN 
S2%4=MANPWR&(1 ) 
S3%=MANPWR&( 2 ) 
S4%=MANPWR%(3) 
GOTO prepdat 
END IF 
REM 
REM set sensitivity bounds for server numbers 
REM 
LOWSENS24=INT((1-SENSLIM ) *MANPWR4(1 
HISENS2%=INT((1+SENSLIM ) *MANPWR&%( 1 ) 5) 
LOWSENS3%=INT( (1-SENSLIM) *MANPWR&%( 2 
HISENS3%=INT((1+SENSLIM )*MANPWR&( 2 ) 
LOWSENS4%=INT((1-SENSLIM) *MANPWR4(3 
HISENS4%=INT( (1+SENSLIM )*MANPWR&(3) 
IF LOWSENS2%<1 THEN LOWSENS2%=1 
IF LOWSENS3%$<1 THEN LOWSENS34=1 
IF LOWSENS4%<1 THEN LOWSENS4%=1 
IF HISENS2%=MANPWRE(1) THEN INCR HISENS2% 
IF HISENS3%=MANPWR%(2) THEN INCR HISENS3% 
IF HISENS4%=MANPWR%(3) THEN INCR HISENS4% 


ny) 
+0. 
)) 
+0.5) 
)) 
+0. 


5 ) 


on 


prepdat: 
REM 
REM prepare data file 
REM 
OPEN R" 33 0032 a0 
FIELD#3,4 AS S1$,3 AS RLS$,3 AS 11$,16 AS NSNG$, _ 
11 AS RT$,11 AS TA$,11 AS TT$,11 AS MTTF$,10 AS L$ 


LP! Nee Program Start Time is : ";DATE$,TIMES 
PAGE%=1 

REM 

REM loops for sensitivity analysis 

REM 


IF CHOICE%=0 THEN slp 
FOR S4%=LOWSENS4% TO HISENS4% 
FOR S3%=LOWSENS3% TO HISENS3% 
FOR S24=LOWSENS2% TO HISENS2% 
slp: ; 
REM 
REM read scaling parameters and failure times 
REM 
OPEN "I", 5, "0052 
INPUT#5 ,A$S ,SYSNUM% 
INPUT#5 ,A$S ,SAMPSIZE% 
FOR X%=1 TO SYSNUM% 
INPUT#5,A,FTIME(X%),B 


NEXT X% 
CLOSE#5 
REM 
REM reset pointers and variables 
REM | 
FOR X%=1 TO 2:FOR Y%=1 TO 50 
BUSY2(Y%)=0 
BUSY3(Y%)=0 


BUSY4(Y% )=0 
PORGMN(X%,Y%)=0 
PDSGS(X%, Y% )=0 
PDEPOT(X%,Y%)=0 

NEXT Y%:NEXT X% 

FOR X%=1 TO SYSNUM% 
ARRTIME(X@ )=0 
PTR&%(X% )=0 
NPTR&(X%)=0 
SPTR&(X% )=0 
SYSDOWN(X%)=0 

NEXT X% 

FOR N%=1 TO SAMPSIZE% 
FOR X%=1 TO 8 

A(X%,N% )=0 

B(X%,X%)=0 

C(X%,N%)=0 
NEXT X% 
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FOR X%=9 TO 11 
C(X%,N%)=0 

NEXT X% 
NEXT N&% 
MAX2%=0 : MAX3%=0 : MAX4%=0 
QD2%=0: QD3%=0 :QD4%=0 
PER2=0: PER3=0: PER4=0 
WAITTTL2=0: WAITTTL3=0: WAITTTL4=0 
CPR ENT 
LPRINT " Queuing Behavior for Varying"; _ 

"Numbers of Servers "“3:_ 

LPRINT USING " PAGE ##";PAGE%:INCR PAGE% 


LPRINT : =e eee ee ee ee Se ES ee SE Se SS SS eS SE = = ; 
" eee eee ee Ee eee Se ee = =" ° LPRINT 


GOSUB sernum 


REM 
REM read the arrival times at OrgMn 
REM 
PS1%4=1: PE%=1 
IC%=1:F@=1:RLE=1 
WHILE RL%>0 
GET#3,IC% 
GOSUB getdata 
IF I%=9 THEN F%=1 
INCR IC 
WEND 
FOR SYS#@=1 TO SYSNUM% 
IF ARRTIME(SYS%@)=0 THEN ARRTIME(SYS@4% )=999999 
NEXT SYS% 
REM 
REM sort data on level OrgMn 
REM 
PS@é={1:PE%=1 
FOR X%=1 TO SYSNUMZ 
GOSUB orgsort 
NEXT X%:PS2%=1 
REM 
REM repair items on level Org Mn 
REM 


LOCATE 20,35:PRENT "Level Org Mn" 
Q2%=0 :N%@=1:SYS%=PS% 


WHILE N%@<=SAMPSIZE% AND ARRTIME(SYS%)<999999 
LOCATE 24,31:PRINT "Service Number’ ";N@%; 
A(3,N%)=PTRZ(SYS@) 

A(7,N%)=SYS% 
INCR Q2% 


gio 


REM 


REM acquire data for repair 


REM 


server2: 


REM 


IC%#=PTR2(SYS% ):M2=0 
GET#3 , IC% 
GOSUB gdata 
INCR IC 
WHILE VAL(I1$)<9 
GET#3,IC% 
GOSUB gdata 
INCR ICZ 
WEND 
INT2=ARRTIME(SYS%@):12=INT2 
FTIME2=FTIME(SYS@) 


A=10000000:012%=0 
FOR X%=1 TO S2% :REM check, if server available 


IF PORGMN(2,X%)<=INT2 THEN 
PORGMN(1,X%)=INT2 
PORGMN( 2 ,X%)=INT2+M2 
DECR Q24:GOTO iserve2 

ELSEIF PORGMN(2,X%)<A THEN 
A=PORGMN( 2,X%) 

END IF 

NEXT X% 

WAITTIME=A-INT2 
WAITTTL2=WAITTTL2+WAITTIME 

INT2=A 

P4=SPTR4(SYS%):INCR QD2%4:INCR Q12% 


REM check other arrival times for queue size 


REM 


WHILE P%<=SAMPSIZE% AND ARRTIME(P%)<999999 
IF ARRTIME(P%)<(INT2+M2 ) THEN __ 
INCR Q12%:P%=SPTR%(P%) ELSE maxq2 


| WEND 


maxq2: 


tserve2: 


IF Q12%>MAX2% THEN MAX2%=Q12% :REM max Q length 


GOTO server2 


IF PER2<PORGMN(2,X%) THEN PER2=PORGMN( 2,X@) 


_BUSY2(X%)=BUSY2 (X% )+M2 


A(1,N%)=PORGMN(1,X%):A(2,N%)=PORGMN( 2 ,X@) 
SYSDOWN(SYS% )=SYSDOWN(SYS2@ )+_ 

PORGMN( 2 ,X%)+TA2/2+TT2-FTIME2 
IF B(6,N%)=0 THEN GOTO fol 
B(1,N%)=A(2,N%) 
FTIME(SYS% )=A(2,N%)+TA2/2+TT2+MTTF 


oe 


ft one: 
REM 
REM check, if another failure for this system 
REM 
IF N%@=SAMPSIZE% THEN p3 
IF NPTR#(SYS%)>0 THEN 
IC4=NPTRE(SYS%@): PTRE(SYS% )=0: NPTR4(SYS% )=0 
F%=1 
WHILE VAL(RL$)>0 
IF NPTR#(SYS%)>0 THEN n2 
GET#3,IC% 
IF VAL(S1$)=SYS% THEN GOSUB getdata 
IF VAL(I1$)=#9 THEN F%=1 


INCR IC 
WEND 
me: 
PS4=SPTR&4(SYS% ):X%=SYS%:GOSUB orgsort 
ELSE : 
PS#=SPTR4(SYS%):GOTO n 
END IF | 
mo: 
SYS#$=PS4: INCR N& 
WEND 
D3: 
REM 
REM sort data on level DS/GS 
REM 
FOR N%4=1 TO SAMPSIZE% 
IF B(1,N%)>0 THEN _ 
B(2,N% )=B(1,N%)+B(10,N%)/2+B(11,N%)_ 
ELSE B(2,N%)=999999 
NEXT N&@ 
PS#$=$1: PEZ=1 
FOR X%=1 TO SAMPSIZE% 
GOSUB dssort 
NEXT X%:PS3%=PS% 
REM . 
REM repair items on level DS/GS 
REM 


LOCATE 20,35:PRINT "Level DS/GS " 
N@=PS%:03%=0:SYS%=1 
LOCATE 24,31 


PRINT " | Ws 
WHILE N%<=SAMPSIZE% AND B(1,N%)>0 
INCR Q3% 


INT3=B(2,N%):13=INT3 
M3=B(9,N%):TA3=B(10,N%):TT3=B(11,N%) 
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server3: 
C=10000000:013%=0 
FOR Y%$=1 TO S3% :REM check, if server available 


IF PDSGS(2,Y%)<=INT3 THEN 
PDSGS(1,Y%)=INT3 
PDSGS(2,Y%)=INT3+M3 
DECR Q3%:GOTO iserve3 

ELSEIF PDSGS(2,Y%)<C THEN 
C=PDSGS(2,Y%) 

END IF 

NEXT Y% 

WAITTIME=C-INTS3 
WAITTTL3=WAITTTL3+WAITTIME 
INT3S=C 


P=B(5,N%):INCR QD3%:INCR Q13% 
REM 


REM check other arrival times for queue size 
REM 
WHILE P%<=SAMPSIZE% AND B(2,P%)<999999 
IF B(2,P%)<(INT3+M3) THEN_ 


INCR Q13%:P%=B(5,P%) ELSE maxq3 
WEND 
maxq3: 


IF Q13%>MAX3% THEN MAX3%=Q13% :REM max Q length 


GOTO server3 
iserves3: 


IF PER3<PDSGS(2,Y%) THEN PER3=PDSGS(2,Y%) 
BUSY3( Y% )=BUSY3(Y% )+M3 
B(3,N%)=PDSGS(1,Y%):B(4,N%)=PDSGS(2,Y%) 
IF C(6,N%)>0 THEN C(1,N%)=B(4,N%) 
N%=B(5,N%):INCR SYS% 


WEND 
REM 
REM sort data on level DEPOT 
REM 


FOR N%=1 TO SAMPSIZE% 
IF C(1,N%)>0 THEN 
C G25 N% )= C(1,N%)+C(10, NP | eGilalh N@ ) _ 
ELSE C(2, NS )=999999 
NEXT N&@ 


PS%=1: PE%=1 

FOR X%=1 TO SAMPSIZE% 
GOSUB dpsort | 

NEXT X%:PS4%=PS% 
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REM | 
REM repair items on level DEPOT 
REM 
LOCATE 20,35:PRINT “Level DEPOT " 
NG=PS4:04%=0:SYS%=1 
WHILE N%#<=SAMPSIZE% AND C(1,N%)>0 
INCR Q4% 
INT4=C(2,N@):14=INT4 
M4=C(9,N%):TA4=C(10,N%):TT4=C(11,N%) 
server4: 
E=10000000:Q14%=0 
FOR Z%=1 TO S4%:REM check, if server available 
IF PDEPOT(2,Z%)<=INT4 THEN 
PDEPOT(1,Z%)=INT4 
PDEPOT(2,Z% )=INT4+M4 
DECR Q4%:GOTO iserve4 
ELSEIF PDEPOT(2,Z%)<E THEN 
E=PDEPOT(2,Z@) 
END IF 
NEXT Z&% 
WAITTIME=E-INT4 
WAITTTL4=WAITTTL4+WAITTIME 
INT4=E 
P%=C(5,N%):INCR QD4%:INCR Q14% 
REM 
REM check other arrival times for queue size 
REM 
WHILE P%<=SAMPSIZE% AND C(2,P%)<999999 
IF C(2,P%)<( INT4+M4 ) THEN __ 
. INCR Q14%:P%@=C(5,P%) ELSE maxq4 
WEND 
maxq4: 
IF Q14%4>MAX4% THEN MAX4%=Q14% :REM max Q length 


GOTO server4 


iserve4: | 
IF PER4<PDEPOT(2,Z%) THEN PER4=PDEPOT(2,Z%) 
BUSY4(Z% )=BUSY4(Z% )+M4 
C(3,N%)=PDEPOT(1,Z%):C(4,N%)=PDEPOT(2,Z%) 
N@=C(5,N%):INCR SYS% 
WEND 
rt4: 
WEEK=WEEKDAYS*DAYHOURS 
PERNUM=PER2/(4*WEEK ) 


O$=" 
LPRINT:LPRINT o$;"LEVEL ORG MN :":LPRINT 
LPRINT " no of customers ae! 


LPRINT USING "“######";SYSNUM% 
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LPRINT " no of failures TS oe 

LPRINT USING "######";SAMPSIZE% 

CERN Do no of servers — ete 

LPRINT USING "######";S2% 

LPRINT " no of delays a a 

LPRINT USING "######" ;QD2% 

LPN toe max queue length me Eons oe 

LPRINT USING "“######"; _ 
MAX2%;:LPRINT " customers" 

LPR total waiting time = "3;:;_ 

LPRINT USING "#######4# FA"; 
WALTTTL2;:LPRINT " Hours” 7s CPR 

LPRINT O$; 

LPRINT “average waiting time per ";__ 
"waiting customer = "; 

IF QD2%=0 THEN 

LPRINT " 0.00 hours" 
ELSE 
LPRINT using "######.## hours";WAITTTL2/QD24% 

END IF 

LPRINT O$; 

LPRINI “expected Waeting, time sper. = 


"entering customer = ";:; 


LPRINT using "###### .## hours"; ;WAITTTL2/SAMPSIZE% 
LER © 
FOR X=1 TO S24 

LPRINT O$; 

LPRINT “percentage server "; 

LPRINT USING "## is busy = ##.# %";__ 

x,BUSY2(X)/PER2*100 

NEXT X 
LPRINT: LPRINT O$;"LEVEL DS/GS :":LPRENT 
EPR iN no of servers = "5 
LPRINT USING "######";S3% 
LEREN IS no of delays =— a's 
LPRINT USING "######" ;QD3% 
LER ENT ss" max queue length = "33 
LPRINT using "###### customers" ;MAX3% 
LP Ree total waiting time = Sus 
LPRINT using "######## .## hours";WAITTTL3 
LPRINT:LPRINT OS; 
LPRINT “average waiting time per waiting "; 


IF QD3%=0 THEN 


LPRINDs 


ELSE 


customer = 0.00 hours" 


LPRINT using "customer = ######.## hours"; _ 


END IF 


WAITTTL3/QD3% 
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bE Pik Der. 
Lek DT 
LPR IY 
PLN 


LER IAT 


OS; 

"Expected Walting time per; 

PemLeT  Neecuc tomer a 7; 

using "###### .## hours"; : WAITTTL3 / SAMPSIZE% 


FOR X=1 TO S3% 
LPRINT OS; 
IF PER3=0 THEN_ 


LPRINT 
LPRINT 

ELSRe. 
LPRINT 
LPRINT 


NEXT X 
LPRINT 
PRT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPR Ra 
LPRINT 


LPR yr: 


LPR EN 


~ OS; 


"DeTGenuage server "3: 
USING "## is busy = 0 


ere 
Dencemumue —Server "3% 

USING "## is busy = ##.# ‘ae 
x,BUSY3(X)/PER3*100 


"LE VSL DEPOT :":LPRIND 
NOmor “Servers ee 
"HHHHHH" ;S4% 

no of delays . ae 
"HHHHHH" ;QD4% 

max queue length mn ae 
"HEH#H# customers" ;MAX4% 

total waiting time = ae 
USING "######## .## hours"; WAITTTL4 
LPRINT OS; 
Vommonage swoltting time per waiting”; _ 
"customer = "3; 


USING 
USING 


using 
"9 


IF QD4%=0 THEN 


LEI nT 


ELSE 


0.00 hours" 


LPRINT USING "###### .## hours";WAITTTL4/QD4% 


END IF 
LPRINT 
LPRINT 
LERANT 


LPRINT 


OS; 

fexmmecetea wotting time per entering"; _ 

" customer = "; 

USING "######F . ## hours";WAITTTL4/SAMPSIZE% 


FOR X=1 TO S4% 
LPRINT O§$; 
IF PER4=0 THEN _ 


LPRINT 


USING "percentage server ##";X 


LPROMWT “ is Busy'= 0.0 6" 

ELSE _ 
LPRINT USING "percentage server ##";X 
LPRINT USING " is busy = ##.# 6"; _ 


NEXT X 


BUSY4(X)/PER4*100 
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LPRONT: : LRRINT sO; 
LPRINT "Total elapsed time for "; 
LPRINT USING "##### failures = ###.## weeks"; _ 
SAMPSIZE%, PER2 /WEEK: LPRINT 
LPRINT 0O$; 
LPRINT"Total number of 4 week periods for "3: _ 
LPRINT USING "#### failures";SAMPSIZE&%; 
LPRINT USING " = ######.#";PERNUM 
LPRINT CHRS$(12) 
REM 
REM order spare part consumption 
REM 
CLS; BOCATE. 15322 
PRINT "Ordering of Part Consumption Times" 
FOR X%=1 TO ITEMNOZ 
CURR%( X% )=0 
MIN%@(X%)=0 
NEXT X% 
FOR X%=1 TO 500 
T1(X%)=0:T2%(X%)=0 
NEXT X% 
COUNT%=0 
FOR N%=$1 TO SAMPSIZE% 
IF A(4,N%)=0 THEN nds 
FF=-MULT 
D1=A(1,N%):A=A(4,N@) 
GOSUB linkparts 
IF ITEM%(A(4,N%))=9 THEN GOTO nextfail 
IF A(5,N%)=0 THEN Z=A(4,N%):GOTO nextds 
FF=-MULT 
Di=A(1,N%):A=A(5,N%):GOSUB linkparts 
FF=MULT 
D1i=A(2,N%)+A(8,N%@)/2:A=A(4,N@) 
GOSUB linkparts 
IF ITEM%(A(5,N%))=9 THEN GOTO nextfail 
IF A(6,N%)=0 THEN Z=A(5,N%@):GOTO nextds 
FF=-MULT 
D1=A(1,N%):A=A(6,N%):GOSUB linkparts 
FF=MULT 
D1i=A(2,N%)+A(8,N%@)/2:A=A(5,N@) 
GOSUB linkparts 
IF ITEM%(A(6,N%))=9 THEN GOTO nextfail 
Z=A(6,N%) 
nextds: 
TA=B(10,N%):TT=B(11,N@) 
FF=MULT 
Di=B(4,N%)+TA/2+TT:A=Z:GOSUB linkparts 
nds: 
TA=B(10,N%):TT=B(11,N@) 
IF B(6,N%)=0 THEN ndp 
FF=-MULT 
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D1=B(3,N%):A=B(6,N%) 

GOSUB linkparts 

IF ITEM%(B(6,N%))=9 THEN GOTO nextfail 
IF B(7,N%)=0 THEN Z=B(6,N%):GOTO nextdp 
FF=-MULT 

D1=B(3,N%@):A=B(7,N%@):GOSUB linkparts 
FF=MULT 

Di=B(4,N%)+TA/2:A=B(6,N%) 

GOSUB linkparts 

IF ITEM%(B(7,N%))=9 THEN GOTO nextfail 
IF B(8,N%)=0 THEN Z=B(7,N%):GOTO nextdp 
FF=-MULT 

D1i=B(3,N%):A=B(8,N%):GOSUB linkparts 
FF=MULT 

D1i=B(4,N%)+TA/2:A=B(7,N%):GOSUB linkparts 
IF ITEM%(B(8, N%))=9 THEN GOTO ee 
Z=B(8,N@) 


nextdp: 
ee eT 
FF=MULT 
D1i=C(4,N%)+TA/2+TT:A=Z 
GOSUB linkparts 
ndp: 
TA=C(10,N%):TT=C(11,N%) 
IF C(6,N%)=0 THEN nextfail 
FF=-MULT 
D1i=C(3,N%):A=C(6,N@) 
GOSUB linkparts 
IF ITEM%(C(6,N%) )=9 THEN GOTO nextfail 
IF C(7,N%)=0 THEN nextfail 
FF=-MULT 
D1i=C(3,N%):A=C(7,N%):GOSUB linkparts 
FF=MULT 
D1i=C(4,N%4)+TA/2:A=C(6,N@) 
GOSUB linkparts 
IF ITEM%(C(7,N%))=9 THEN GOTO nextfail 
IF C(8,N%)=0 THEN nextfail 
FF=-MULT 
D1=C(3,N%):A=C(8,N%):GOSUB linkparts 
FF=MULT 
Di=c C4 NY )PTA/2:NEC(7 NX). 
GOSUB linkparts 
nestfail: 
NEXT N@ 
REM 


REM compute stock levels 


REM 


FOR X%=1 TO ITEMNO% 


CURR%S(X% )=STOCK%( X% ) 


NEXT X% 
OUT1%=0: 0UT2%=1 
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FOR X%=1 TO COUNTS 
sli: 
IF T1(O0UT2%)=0 THEN s12 
IF OUT2%>0UT1% THEN s1l2 
IF T1(O0UT24)<=P1(X%) THEN 
' CURR%é=CURR&( T2%( OUT2S ) ) 
CURRS%=CURRS+T3%( OUT24 ) 
CURR%(T2%( OUT2% ) )=CURRS 
INCR OUT24% 
GOTO sli 
END IF 
Sig: 
CURR%S(P2%(X%) )=CURR&%(P2%(X%) )+P3%4(X& ) 
IF CURR%( P2%(X%) )=LITTLES%( P2%(X%)) THEN 
IF ITEM%(P2%(X%))=9 THEN 
INCR OUT1% 
T1(OUT1%)=P1(X%)+AST _ 
T2%(OUT1% )=P24(X& ) 
T3%4(OUT1% )=STOCK%( P24(X%) )-LITTLES%( P2%4(X%) ) 


END IF 
END IF 
IF CURRS(P2%(X%) )<MINS(P24(X%)) THEN _ 
MIN%( P2%(X%) )=CURR&(P2%(X%) ) 
NEXT X% 
FOR X%=1 TO ITEMNOZ 
IF MIN%(X%)<O THEN _ 
IF ITEM#(X%)<9 THEN MIN%(X%)=0 


NEXT X% 

LPRINT O$; __ 

"Summary of Item Consumption and Stock Levels"; 
LPRINT USING " PAGE ##";PAGE%: INCR PAGE% 
ee O$;_ 


ee 


EPRONT: DP Rony 
LPRINT 05$;0$5; 


"STOCK NO. INITIAL STOCK"; _ 
"FINAL STOCK MIN. STOCK" 
LPRINT 0$;" ne 
+ " 
LPRINT 
FOR N%=1 TO ITEMNO% 
LPRINT USING " HHH "SND; 
LPRINT ITEM$(N%);:LPRINT USING" HHH"; 
STOCK%(N&) ; 
LPRINT USING. " HHEH HEHE! 
CURR%(N%) ,MIN%(N&) 
MIN&(N% )=STOCK% (NZ ) 
NEXT N% 


Chest DPRINT CHRSX 12} 


REM 
REM close sensitivity loops 


REM 
IF CHOICE%=0 THEN pend 
IF BUSY2(1)/PER2*100<10 THEN EXIT FOR 
NEXT S2% 
IF BUSY3(1)/PER3*100<10 THEN EXIT FOR 
NEXT S3% 
IF BUSY4(1)/PER4*100<10 THEN EXIT FOR 
NEXT S4% 
pend: 
PREMT : LPRINT 
LPRINT " Program End Time is : ";TIME$ 


LOCATE 20,30: PRINT _ '" # 3 3 3 3 € 3 2 3 0 1 36 96 36 et EN 
Peewee 21,30:;PRINT "** Program End **" 
LOCATE 22,30: PRINT  " % ¥ # 4 3 3 3 1 1 EM 
LPRINT CHR$(12) 


END J 

REM HHHHHHEAHHHAHHHAHRHHARHHEF 
REM # END OF MAIN PROGRAM # 
REM HHAHHAHHEHAHHHAHEAHEARHAARHH 
REM 


REM dE FE FE HE HE DE DE FE DE DE FE HE HE DE DE DE DE DE DE HE DE DE FE DE DE FE HE DE FE EE DE DE DE DE DE FE DE FE DE OE DE HE OE HE EE HH OH OH 


REM 

REM Subroutine CHOOSE PROGRAM MODE 
REM 

oMmerce : 

REM 

eis: LOCATE 7,25 

PRINT WY de He He HE DE EE HE HE OE EE EH EE EE He EH ET 
BOCERTE $,25 

BRINT "** Program Mode Menu **" 
BOCATE 9,25 


PRINT WY de He HE DE HE HE OE HE OE OE EE EE EE HE HH HH OH KT 

POCATE 13,16 

PRINT "( O ) ... Check Queuing Behavior without" 
LOCATE 14,16 

PRINT " Sensitivity Analysis (faster)" 
BOCATE.16,16 

PRINT "( 1 ) ... Check Queuing Behavior with" 
LOCATE 17,16 

PRINT ." Sensitivity Analysis" 

WOOMTE 19,12 

PRINT " s332522s22222252S22 2522525555555 555555555 55525==" 


POCATE 22,29 
PRINT "Default Value is O." 
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cL Gites 
LOCATE 23,18 
PRINT "To accept press ENTER,"; 
INPUT " else enter value : ",CHOICE% 
IF CHOICE%<0 OR CHOICE%>1i THEN 
LOCATE 23,61 
PRINT " e 
GOTO itr 
END IF 
RETURN 
REM 


REM HE HE HE HE HE HE 9E 9€ -9E 9E -9E -2E KH DE FE FE HE FE 9E 9E 9E 9E 9E HE 2 EE HE EE EE OE 9 EE EE HE HH HE EH HH OH OH OH 


REM 
REM Subroutine READ INITIAL DATA 
REM . 
getdata: 
REM 
SYS%4=VAL(S1$ ) 
RL%=VAL(RLS$ ) 
I@=VAL(1I1i$) 
TA=VAL(TAS$ ) 
TT=VAL(TTS$ ) 
IF RL%4=2 THEN 
IF PTR&2(SYS%)=0 THEN PTR%Z(SYS%)=I1C%:FS=0: | 
ARRTIME(SYS%@ )=FTIME(SYS% )+TA/2+TT 
IF F%=1 AND NPTR%(SYS%)=0 THEN _ 
IF IC@>PTR#(SYS%) THEN NPTR&Z(SYS% )=IC% 
END IF 
IF RL@=3 THEN _ 
IF ARRTIME(SYS%@)=0 THEN B(1,N%)=FTIME(SYS@) 
IF RL@=4 THEN _ 
IF ARRTIME(SYS%@)=0 THEN C(1,N%@)=FTIME(SYS@%) 
RETURN 
REM 


REM dE HE 36 HE HE 96 36 96 HE EE 6 26 6 HE EE HE 26 26 6 26 96 HE 96 26 6 2G 26 HE EE 26 EE 6 EE EE 26 EE 06 6 98 EE EE 
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REM 
REM Subroutine SORT ARRIVAL TIMES ON LEVEL ORG MN 
REM 
orgsort: 
REM 
IF ARRTIME(X%)>=ARRTIME(PE%) THEN 
SPTR&( PES )=X%: SPTRE(X% )=1C%: PES=X%:GOTO endsort 
IF ARRTIME(X%)<ARRTIME(PS@) THEN _ 
SPTR@(X% )=PS%é: PS%4=X%: INCR SPTRE¥(PE%):GOTO endsort 
PE=PS% 
lorg: 
H%=P%: P=SPTR4S( PS) 
IF ARRTIME(X@% ) DARRTIME( P%) THEN iorg 
SPTR%(X% )=P%: SPTR4( HS )=X% 
endsort: 
RETURN 
REM 


REM He He He HEE HE DE HE EE EE EE HE DE HEE EE EEE HEE EEE EE EE EE EE EE EE EE EEE HE 


REM 
REM Subroutine SORT ARRIVAL TIMES ON LEVEL DS/GS 
REM 
dssort: 
REM 
IF B(2,X%)>=B(2,PE%) THEN 
B(5,PE%)=X%:B(5,X%)=1C%: PE4=X%:GOTO enddssort 
Pe B(2,X%)<B(2,PS%) THEN _ 
B(5 ,X%)=PS%4:PS@=X%: INCR B(5,PE%):GOTO enddssort 
P%=PS& 
ids: 
HS=P%:P&=B(5,P%) 
IF B(2,X%)>B(2,P%) THEN ids 
B(5 ,X% )=P%:B(5,H&S )=X% 
enddssort: 
RETURN 
REM 


REM He He 3 HE HEE HE EOE EE EE EE EE EEE EE EEE EE EE EE EEE EE EE EOE 
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REM 

REM Subroutine SORT ARRIVAL TIMES ON LEVEL DEPOT 

REM : 

dpsort: 

REM 

IF C(2,X%)>=C(2,PE%) THEN 
C(5,PE%)=X%:C(5,X%)=1C%: PE4=X%:GOTO enddpsort 

IF 025) <2 , Pst Laan 
C(5,X%)=PS@:PS#=X%: INCR C(5,PE%):GOTO enddpsort 

P%=PS% 

idip:s 

H%=P%: P%=C(5,P%) 

IF C(2,X%)>C(2,P%) THEN idp 

C(5,X%)=P%:C(5,HE )=X% 

enddpsort: 

RETURN 

REM 


REM dt dt 94 2€ OE FE HE OE OE HE OE DE OE OE OE OE DE OE OE 0 OE 2 Oe Ee EE EE OE OE OE Oe OE OE Oe OE OE OE OE Oe OE 0 0 0 0 0 OH 


REM 
REM Subroutine DETERMINE TYPE OF FAILED ITEM 
REM 
partno: 
REM 
FOR P%$=1 TO ITEMNO% 
IF NSNS=ITEM$(P%) THEN ITEM%(P%)=VAL(1I1$):EXIT FOR 
NEXT P% 
RETURN 
REM 


REM de 9€ 9€ DE DE HE DE DE HE OE EE EE OE HE OE OE OE OE OE OE Ee OE ee Ot Ot 0 9H HRM HH HHH HOH CH 


REM 

REM Subroutine CHECK IF ITEM AVAILABLE 

REM 

partcheck: 

REM 

FOR X%$=1 TO ITEMNO% ~ $REM check which part 
IF ITEM$(X%)=D$(1) THEN RETURN 

NEXT X% 

RETURN 

REM 


REM HE He HE HE HE DE HE HE HE HE HE HE OE HE OE HE OE OE OE OE OE HE EE Ee Oe OE OE OE OE OE OE OO HO HO HHH OH OH 
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REM 
REM Subroutine READ INDIVIDUAL FAILURE DATA 
REM 
gdata: 
REM 
SYS%Z={VAL(S1$ ) 
RL%=VAL(RLS ) 
I%$=VAL(I1$ ) 
RT=VAL(RTS ) 
TA2=VAL(TAS ) 
TT2=VAL(TTS ) 
IF RL%=2 THEN 
M2=M2+RT 
A(8,N%)=TA2 
GOSUB partno 
IF A(4,N%)=0 THEN A(4,N%@)=P%:GOTO el 
IF A(5,N%)=0 THEN A(5,N%)=P%:GOTO el 
A(6,N% )=P%:GOTO el 
END IF 
IF RL%=#3 THEN 
B(9,N%)=B(9,N% )+RT 
B(10,N%)=TA 
B(11,N%@)=TT 
GOSUB partno 
IF B(6,N%)=0 THEN B(6,N%)=P%:GOTO e1 
IF B(7,N@)=0 THEN B(7,N%)=P%:GOTO el 
B(8,N%)=P%:GOTO el 
END IF 
IF RL%Z=4 THEN 
C(9,N%)=C(9,N%)+RT : 
C(10,N%)=TA 
C(11,N%)=TT 
GOSUB partno 
IF C(6,N%)=0 THEN C(6,N%@)=P%:GOTO el 
IF C(7,N%)=0 THEN C(7,N%)=P%:GOTO el 
C(8,N%)=P% 
END IF 
ee ; 
IF I%=9 THEN MTTF=VAL(MTTFS ) 
RETURN 
REM 


REM HHHHMHHH HH HH HHH HH MHHHHHHH HHH HHMHHHHHHH HH HH HHH HHH HH HH OH 
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REM 

REM Subroutine VARIABLE INPUT 

REM 

varin: 

REM 

IF CHOICE%=0 THEN srf 

CLS: LOCATE 10,15:SENSLIM=0.1 

PRINT "Enter sensitivity analysis bounds"; 
PRINT “Vin per cen” 

LOCATE 16,15 

PRINT " The default value is 10." 
LOCATE 22,17 

PRINT “To accept default press ENTER,"; 
INPUT " else type value ",RF 

IF RF>O THEN SENSLIM=RF/100 

Srt: 

Cie: LOCATE 10,20 . 

PRINT “Enter the stockout risk factor r" 
LOCATE 12,20 


PRINT " ( 0.0 < r < 1.0 )" 
LOCATE 16,20 
PRINT " The default value is 0.9." 


LOCATE 22,15 

PRINT "To accept default press ENTER,"; 
INPUT " else type value",RF 

IF RF>O THEN R=RF ELSE R=0.9 

CLS: LOCATE 10,10 

PRINT "Enter ave. shipping time"; 

PRINT "“" for ordered items in days" 
LOCATE 16,10 ~ 
PRINT " The default value is 5 days." 
LOCATE 22,12 

PRINT "To accept default press ENTER,"; 
INPUT " else type value",RF 

IF RF>O THEN AST=RF ELSE AST=5 

RETURN 

REM 


REM De He HE DE DE DE FE DE FE DE FE DE DE DE DE FE DE DE DE He DE DE DE FE FE FE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE Ee HE EH HH MH OH 
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REM 
REM Subroutine POISSON DISTRIB.: MINIMUM STOCK LEVEL 
REM 
poisson: 
REM 
K=0 
LT=LAMBDA*AST 
E=EXP(-LT) 
CUM=E 
WHILE CUM<R 
INCR K 
CUM=CUM+((LT*K)/K)*#*E 
WEND 
LITTLES&@(X )=K 
RETURN 
REM 


REM HRHHKHRKHHHHHHHHHHRHRHHRHHHHHHHHHHHHHHHHRH HHH HHH HHH HHH MH HOH HH 


REM 

REM Subroutine PRINT NUMBER OF SERVERS 

REM 

sernum: 

REM 

Cus: LOCATE 6,20 

rele. Nomber of servers for level Depot : "; 
PRINT USING "###";S4@ . 

LOCATE 8,20 

PRINT "number of servers for level DS/GS : " 
PRINT USING "###";S3% 

LOCATE 10,20 

role “number of servers for level Org Mn : "; 
PRINT USING "###";S2% 

BOGATE 15,27:PRINT “Compute Queueing Behavior" 
RETURN 

REM 


REM HHHHHHHHHMHMMHMH MH MMH HHHHHHHHHHHHRHHHMHMHHMHMHHHHHHHHH HHH HHH 


ae 


REM 
REM Subroutine ORDER PARTS CONSUMPTION 
REM 
linkparts: 
REM 
C%=COUNT%: INCR COUNTS 
IF COUNT%=1 THEN _ 
Pi( COUNTS )=D1 : P2%( COUNTS )=A: P3%( COUNTS )=FF:GOTO 1p3 
IF Di>=P1(C%) THEN _ 
Pi( COUNTS )=D1:P2%( COUNTS )=A: P3%( COUNTS )=FF:GOTO 1p3 
Tio, 
IF D1>=P1(C%-1) THEN 
ome 
Hi=P1(C%):H2%=P2%(C%) :H3%=P3%(C&) 
P1(C%#)=D1:P24(C% )=A: P3%(C%)=FF 
Di=H1:A=H2%:FF=H3%:INCR C& 
IF C%#<=COUNT% THEN 1p2.ELSE 1p3 
ELSE 
DECR C%:GOTO Ip1 
END IF 
lp3: 
RETURN 
REM 


REM HHHHRHHHHHHHHHHHHRHH HHH HMHRKHRHHKRHMHKNRHRHHRHRHHHHHHHRHHH NH HHH HK 
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